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Tektronix: 


COMMITTED TO EXCELLENCE 


.. TEKniques Мої. 5 Мо. 4 T1 
062-5981 -01 


DOCUMENTATION 


10/81 


Тһе program material contained herein is 
supplied without warranty or representation 


of any kind. Tektronix, Inc. assumes no За 
responsibility: and shall have по liability, >. 


consequential or otherwise, of апу kind 
arising from the use of this program material 
or any. part thereof. 


Duplication of this documentation or pro- 
gram material for further.distribution is re- 


stricted to Tektronix, тс. its subsidiaries . | 


апа distributors. 


Prepared бу the 4050 Series Applications 
Library: The '4050 ‘Series Applications Li- 


> brary. is: maintained: as.a service for our ``. 
customers. by the Information Display. = ~ 


Division of Tektronix, Іпс., Group 451, P.O. 
Box 500, Beaverton, Oregon 97077 U.S.A. 
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PAGE NUMBER 1 


| DESKTOP COMPUTER 
текігопіх APPLICATIONS LIBRARY PROGRAM 


PART NUMBER 


| TITLE 


TEKniques Vol. 5 No. 
062-5981-01 


ABSTRACT 
TEKniques Vol. 5 No. 4 T1 tape consists of 67 programs on 93 files. 


set of 10 programming aids аге included on files 1-32. 

The TAPEMENU routine and its data file occupy the first two files. 

Nine additional programming aid routines, extensively REMarked, reside on 
files 3-11. 

File 12 Contains notes on these programs. | 

These same 10 programming aid routines. stripped of. REMark statements (using 
program 7) occupy files 13-22. 

Files 23-32 contain the cross- -referenced: programs using program 8, parse 
option 1. | 


Files 33-44 comprise the 2-0 and 3-0 graphing: contest entries, the contest 
sponsored by TEKniques in the spring of 1981. 


File 45 contains the Reference Index program. It must ђе transferred to а 
dedicated tape before running. The documentation contains complete instructions 
for accomplishing the transfer. 


Files 46-93 are 47 routines with index printed in the GPIB Programming Guide 
(part #070-3985-00). These files must be-transferred to another tape where 
they occupy the first. s files. " Instructions: to transfer are included. 


These routines provide КЕТЕ of and utilities for а variety of system configura- 
[tions for the 4050 and TEKTRONIX TM5000 series instruments. The GPIB Programming 

Guide is not included in this documentation but may be ordered separately by 

its part #070-3985-00. 


Read the documentation for a program before running it. 


AUTO LOAD the TEKniques Vol. 5 No. 4 Tl tape, input "1" for device #, then choose 
a program from the tape menu. NOTE: Leave the TEKniques tape on safe so you won't 
inadvertently overwrite a file. 


The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Inc., assumes no responsibility and shall have no liability, consequential or otherwise, of 
апу kind arising from the use of this program material or any part thereof. 
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TITLE PARI NUMBER 
TEKniques Vol. 5 No. 4 T1 -062-5981-01 
Ргодгат Documentation ~ j Ü< 
Title Page # 
TAPEMENU 1 
TAPEMENU - Stripped 
TAPEMENU Cross-Referenced 
READNOTE 
READNOTE - Stripped 
READNOTE Cross-Referenced 
WRITNOTE 
WRITNOTE - Stripped 
WRITNOTE Cross-Referenced 
FMARKER 
FMARKER - Stripped 
FMARKER Cross-Referenced 
LHEADER 
LHEADER - Stripped 
LHEADER - Cross-Referenced 
PHEADER - Stripped Ф 
PHEADER - Cross-Referenced 
STRIPPER 
STRIPPER - Stripped 
STRIPPER Cross-Referenced 
CROSSREF ~ 
CROSSREF - Stripped 
CROSSREF - Cross-Referenced 
TAPEDUPE 
TAPEDUPE - Stripped 
TAPEDUPE Cross-Referenced 
.COMPSORT 
COMPSORT - Stripped 
COMPSORT - Cross-Referenced 
PROGNOTES 
General Function Z-F(X,Y) Plot 
Stereo Surface 
3-D Plot w/wo Hidden Lines Ç | 
МЛ 


PLOT3D 
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TITLE... 


TEKniques Vol. 5 №. 4 ТІ 


Title 

Pipe Chart 

Contour Plots 

Hierarchal Clustering 

Nonlinear Mapping 

Vertical Plot 

Data for Programs 17, 18 and 19 
Reference Index (transfer) 


4050/TM5000 GPIB Routines (transfer) 
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Таре File 
# 


39 
40 
41 
42 
43 
44 
45 


46-93 


PAGE NUMBER iii 
“РАВТ NUMBER 
062-5981-01 


Documentation 
Page # 


89 
95 
99 
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| РАСЕ МОМВЕВ іу: 
TITLE | | PART NUMBER 


TEKniques Vol. 5 No. 4 T1 062-5981-01 
TRANSFERRING FILES TO А МЕН ТАРЕ ` | с % 
PLOT 50 General Utilities Vol. 1 (TEKTRONIX Part #4050A08) contains a program ^ І 
to transfer апу type of 4050 files (program/data/text) quickly and easily along 
with the header names; however, it requires a 4924 Tape Drive, as does TAPEDUPE 
program contained on TEKniques Vol. 5 No. 4 T1 tape, і 
Transferring ASCII or BINARY PROGRAMS without а transfer program 
Step 1. Do а TLIST of the MASTER program tape. 
Step 2. Record which files go with which program (they are ај] named). and 
the size of each file. | ак: 
Step 3. MARK your new tape to accept the respective files for that program, 
e.g., | 
‚о 
‚ MARK 1,20000 . 
_ FIND, 2 
MARK 1,4000 
etc. 
Insert the MASTER tape. ТЕ | © 


FIND a file 
OLD for ASCII or CALL "BOLD" for BINARY 


Step 5. Insertthe new tape 
FIND the file to receive the file in memory 
SAVE for ASCII or CALL "BSAVE" for BINARY 


REPEAT Steps 4 and 5 until all files comprising that program are transferred - 
to the new tape. Note: This procedure will not retain the file header names. 


Transferring ASCII or BINARY DATA to а new tape 
The 4051R06 Editor ROM could be used to transfer ASCII DATA files. 


4050 Applications Library program "Binary Data File Duplicator" will transfer 
BINARY DATA files without any peripheral. 


4050 Applications Library program "Tape Duplication" will transfer ASCII or 
BINARY DATA or PROGRAM files, but requires a 4924 Tape Drive. 


Both of these programs are contained on the 4050 Applications Library 
UTILITIES Т1. tape (TEKTRONIX Part #062-5974-01), and UTILITIES Dl disk ... wd 
(TEKTRONIX Part #062-5975-01). | | | | Ç 
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РАСЕ NUMBER 


б ОЕЗКТОР СОМРИТЕВ 
Tektronix. |. APPLICATIONS LIBRARY PROGRAM 


TITLE 


| ТАРЕМЕМЏ . EQUIPMENT AND OPTIONS REQUIRED 
FORIGINAL DATE REVISION DATE ú 
January, 1979 October, 1980 16K (see below) 

AUTHOR County of San Diego PERIPHERALS 


Bob Manthey San Diego, СА . - Optional - 4924 Tape Drive 
ABSTRACT | 
Files: 1 АЗСІЇ Program 

1 Binary Data 
Statements: 188 
This program will establish, maintain, and display a binary encoded data file 
containing the names and file numbers of all the ASCII Program files-found on 
the tape. (The names are those previously created with 'FMARKER'.) - Upon- 


selecting a program by its relative display-number, TAPEMENU will load it and 
кип it. Rut n 


| Memory: 
The documented program is -7K in size. 
The stripped program is -4K in size. 


The binary data file is 1+К in size and will hold 100 program names and 
numbers. 


4924 Option: 


Immediately after loading, the program prompts for the drive number (2 = 4924). 


Pressing RETURN will default to drive #1, the 4050 internal tape unit. 


The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Inc., assumes no responsibility and shall have no liability, consequential or otherwise, of 
_any kind arising from the use of this program material or any part thereof. 


des 
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PAGE NUMBER 2 
TITLE 


TAPEMENU 


Z3 Ww 
` 


1: The program is written in an adequately a jodular style, and in 
' general, performs as follows: ЭГ | М 


Select the file drive #. 


Validate, existence of data file. It assumes the data file to Бе a Binary 
Data file residing on file 2. иг се та 


If Е Пе 2 is not а Binary Data file, create a Ба data ТЕ; (CAUTION: 
it will automatically MARK file 2.) Jump Хо 5. | 


ТЕ existent, read the data file. 


Sign-on with Tape Name and Identifier, date and device-drive #, 


Display programs available with an assigned relative-number. 

Prompt for, and validate, a program selection. 

If valia bronpt for, and validate, a device drive #. 

Load and run (chain) the selected program. 

If invalid (or 'RETURN'), prompt for new tape-menu compilation. A 

If NO, loop to 7. дах. ЭР 
If YES, compile а new tape-menu data-file. Aa que D "m ҚМ 

Loop back to 5. 


NOTE: . Modify line 460 to change the blank lines in the display, and, hence, = 
_ the total number of displayable files. | 


TO END THIS ROUTINE, PRESS BREAK TWICE. 


The program creates and maintains one 1+K binary encoded data file най 
contains data геад from the tape-file headers (ог extenders): 

T « = Total number of programs stored (100 maximum). 

D$ Date of latest file activity. | 

F$ . - Composite File #-&-Ргодгат-Мате string. | 

0$ Tape-cartridge Identifier (Acronym-#, etc.) 

R$ Tape-cartridge Name. 


Read the WARNING in the program listing-header!!! 
If you wish to change the files storage capacity, change 'T' in line 136. 
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РАСЕ МОМВЕВ 3 
TITLE 


TAPEMENU.... 


See program lines 100-199 for Internal Data Storage. 

.. See the program 'REMARKs' for the methods used. 
The program prompts for all required input. Inputting 'RETURN' on the 
Drive # prompt will default to the 4050 after AUTOLOAD, and to the 
currently selected drive after Program £ input. 


All YES/NO questions may be answered affirmatively with YES, Y or 1, ene 
negatively with any other input (e.g., RETURN). 


There are no references. 


The program tape includes a Cross-Reference Index of the program. 


FINAL COMMENT: 

Any tape cartridge program file names (Identifier, etc.) can be easily 
modified with the FMARKER utility. The accuracy of the names stored: 
and displayed by TAPEMENU is dependent on that. 


Compiling a new or modified data file 45 relatively easy with this "n 
TAPE MENU utility. ax 


The date is taken from the LAST file on a tape. Use FMARKER utility to 
name the LAST file with a date (if desired). 


OPERATING INSTRUCTIONS 


[Transfer the TAPEMENU program to your new tape, as file 1. Use the TAPEDUPE 


program to accomplish the transfer since it will save all header information. 


Optional-Use FMARKER program to rename the tape cartridge and give it а: пем. | 
number. 


RUN the TAPEMENU program; it will initialize a data file on file 2... 


As you add programs to your tape, run FMARKER to name them, then RUN TAPEMENU to 
update the data file on file 2. 


When you press AUTOLOAD, TAPEMENU will display the data file and give you the. 
option of choosing a program, ог updating the data file. 
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TAPEMENU 
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Tektronix | | DESKTOP COMPUTER 


мг Өлі APPLICATIONS LIBRARY PROGRAM 


READNOTE 


ORIGINAL DATE REVISION DATE 
January, 1979 корчу 1980 8K 


EQUIPMENT AND OPTIONS REQUIRED 


ABSTRACT 


Files: 1 ASCII Program 


Statements: 37 


A short utility routine that displays a data file created by WRITNOTE. 


However, the core of this: routine.and its methods, may be used as a ие а 
within.a complex program, allowing it to display instructions that would be 
pron Ну large to code in the program. 


22 S The program material contained herein is supplied without warranty or representation of any kind. 
Ў ^ Tektronix, Inc., assumes по responsibility and shall have no liability, consequential or otherwise, of 
"17 any kind arising from the use of this program material or any part thereof. 
eA + Ме шас ii l3 
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ХИ" PAGE NUMBER 6 
TITLE 


READNOTE 


1 
OPERATING INSTRUCTIONS 
| Load the program through the TAPEMENU or FIND 3, OLD апа RUN.. 


The program as coded, will automatically find file 12 апа read the text 
therein. 


To change the file location search, re-code statements 130 and 140. 
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PAGE NUMBER 7 


заа авы 2 РЕЗКТОР COMPUTER 
Tektronix APPLICATIONS LIBRARY PROGRAM. 


HILE aa 


WRITNOTE } 
EQUIPMENT AND OPTIONS REQUIRED | 
ORIGINAL DATE REVISION DATE : 
January, 1973 October, 1980 s O 
| AUTHOR PERIPHERALS 
County of San Diego 
| Bob Manthey | San Diego, СА i 


ABSTRACT 


Files: 1 ASCII Program 
Statements: 83 
This is a quick and dirty utility which created and edited the notes in 
file 12. It is a line-oriented utility. 


Once the notes are created and stored, they may be modified a line at 
a time. Modifications include: 


Leaving a line as is 
Changing a line 
Inserting a line 
Deleting a line 


The program will automatically MARK a file large enough for the newly 
created, or modified, text and store it. 


The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Inc., assumes no responsibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part thereof. 
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РАСЕ NUMBER 8 
"TITLE : 


WRITNOTE 


OPERATING INSTRUCTIONS 


Load the program through the TAPEMENU or FIND 4 and OLD. Remove the TEKniques 
tape and insert the tape onto which you will store the text. 


Change statement 140 to reflect the offset for the file. 

Type RUN, and choose to create a file or modify it. 

CREATE 

You will be prompted for each line of text. The program won't 41166 you 

to enter more than 72 characters into a line. After each line is entered, - 


you will be given a chance to change it. 


Start the last line of each page with a Control-C. This informs the program 
READNOTE to pause after it displays this line. ; ids i 


End the text-entry by simply pressing RETURN without entering anything. 


At this point, the program will find the file, MARK it, and print all the 
text you have. шин out to it. 


The program retrieves text from the file a line at а time and gives уоша 
choice for that line. 


Lets you type a line to be inserted prior to the one displayed. Then re-displays 
t. 


Deletes the line. 
nd 


Reads in the rest of the text, displays it, until it reaches епа- of- file, at which - 
ime it will re-MARK the file and save the modified text. 9 ` 


hen completed, the program will FIND file 1 (the menu file usually) and OLD-it. 
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x сае ЭЭ? DESKTOP COMPUTER 
Tektronix APPLICATIONS LIBRARY PROGRAM 


| FMARKER 


EQUIPMENT AND OPTIONS REQUIRED 
ORIGINAL DATE REVISION DATE 
Bob Manthey San Diego, CA - Optional-4924 Tape Drive | 


АВЗТВАСТ 


Files: 1 А5СІІ Program 


Statements; -255. 


Use this routine to mark а tape file header with ап 8 character пате and: 
also a 30 character Remarks-Extender. жы» 


Іп addition, the tape cartridge may be given a 10 character alpha-numéric 
identifier and a 48 character name. 


A listing facility included in this routine will produce an index of thé : 
tape files, and compute and display the file space--used and free, in 

both a byte and block format, with their respective percentages. (This is 
for a standard DC300A cartridge only!) 


Documented program is 84K in size. 


Stripped program is 64K in size. 


4924 Optional: 


This routine can be set to operate on the 4924 by means of a program-prompted 
input. Inputting RETURN defaults to the 4050 tape drive. The device drive 
that you're operating on is displayed during the utility's operation. 


The program material contained herein is supplied without warranty or representation of any kind. 
21 Текігопіх, Inc., assumes no responsibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part thereof. 
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] PAGE NUMBER 10 
TITLE | 


| FMARKER m | | i — а 


Г - Briefly the program functions in the following manner: 


Set drive-device #. | 

Locate апа display the file header. 

Prompt for, and validate, a header marker. 

Prompt for, and validate, header Remarks-Extender. 

If header is changed, write it to the file, then read and display it. 
. Repeat 2-5 until a negative response to prompt е 2. 

List index of tape files, if desired. 


If the file changed is number 1, the program will also prompt for 
the name of the tape cartridge itself, and а number for it. 


The TAPEMENU routine will pick up this name and number and include 


it in, the display (see the example following). 


The program creates no files. 
. See lines 100-199 for internal data storage. 
See program REMarks for methods used. 


The program operation is straightforward as it prompts for the 
required input. 


A11 YES/NO questions may be answered affirmatively with YES, Y or 1, and 
in the negative with any other input (e.g., RETURN). 


The program tape includes a Cross-Reference of FMARKER. 
. References: 
"TEKTRONIX 4051 Graphic System Reference Manual," pp 7-32 to 34. 


"TEKniques," May 1, 1979, Vol. 3 No. 3, page 12: 
"Extending the Tape File Header", Ed Sawicki, Tektronix, Inc. 
Long Island, NY. 


Ç 
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РАСЕ МУМВЕВ 11 
TITLE” 


| FMARKER 

NOTES 

| FMARKER writes an 8 character marker beginning at column 25 of the header. 
Unfortunately, whenever you write/save data to a file, the 4051 writes over 


columns 25 and 26 with spaces. You may alleviate this problem in your programs 


by using the routines located in the program LHEADER. 


Or, you may change this program so the marker is only 6 characters long: 


beginning at space 27. Modify FMARKER as follows: 


Lines: 166 .ПІМ M$(6) 2 
1100 (Change ">" to " >") (1.е., add two spaces in front оғы) 
1130 If LEN(Z$)> 6 THEN 199p КИ 
1420 IF NOT (POS(Z$,"S",1)=1 THEN 1500 
(also change the 3's to 1's in lines 1430, 1500 & 1510) 

1710 (Change Z$ to 6 spaces) 
6100 LET H$=REP(M$,27,6) 
7600 LET M$=SEG(H$, 27,6) 

In addition to not allowing number in the marker, line 1330 also eliminates 


the "." since its inclusion produces the anomaly of not allowing the 4924 to 
write/save data to said file (no such problem ensues with the 4051). 


INote also that the TEKTRONIX PLOT 50 Utility "4924 Tape-To-Tape Copy Utility" 
will not transfer file header extender-remarks. І have furnished a modified | 


version of that utility which solves this problem and one or two others. 


The routine PHEADER provides an example of how the tape cartridge identifier 
may be used as part of a BASIC program identifier line. 


Final Comment | | 
Тһе index produced Бу this utility is а convenient means of maintaining a 
descriptive inventory of programs within your system, along with their 
location, for ease of retrieval and use. 
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TITLE 

FMARKER 

OPERATING INSTRUCTIONS ` 
Load FMARKER through the TAPEMENU or FIND 5, OLD and RUN. 

The program will prompt you Тог the device drive (1.е., 4050 or 4924--note that 

it assumes the device # of the 4924 to be 2), and for the file # to be changed. 

It reads the current header of the file and displays it, then requests for a new 

marker and/or new remark-extender. 

To leave it the same, simply press RETURN. 

To input a new marker, key in up to 8 characters, all alphabetic. 

To input a new remark-extender, key in up to 30 character, any type. 

If file 1 has been chosen, the program will also prompt you for a tape number 

of 10 characters (any type) and/or a tape name of up to 48 characters (any type). 

In the examples following the tape cartridge number is: VOL5NO4T1, 

the tape cartridge name is: TEKTRONIX APPLICATIONS LIBRARY PROGRAMS. 

When you are finished renaming tape headers, the program will prompt for = M 
a tlisting. š Ма 


USING TAPEMENU with FMARKER 


Once your tape files are named, you may use TAPEMENU to update your data file 
of tape names on your cartridge. 


g 
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| FMARKER 


(121413403 01 


xb 2S (sa) fq 1194621) 
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AT DESKTOP COMPUTER 
Tektronix APPLICATIONS LIBRARY PROGRAM 


COMMITTED TO EXCELLENCE 


| L HEADER EQUIPMENT AND OPTIONS REQUIRED 
ORIGINAL DATE REVISION DATE 
Bob Manthey San Diego, СА | 


| ABSTRACT 


Files: 


1 ASCII Program 


Statements: 77 


The FMARKER utility writes an eight character marker beginning at column 25 
of the file header. Unfortunately whenever you write/save data to a file, 
the 4051 writes over columns 25 and 26 with spaces. | 


You may alleviate this problem by incorporating the two routines contained 
in this file into your write/save programs. ан а 


42% 


Тһе program material contained herein is supplied without warranty ог representation of any kind. 
Tektronix, Inc., assumes no responsibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part thereof. 
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TITLE 


LHEADER 


OPERATING INSTRUCTIONS мер ом 
Load the program through the TAPEMENU, or FIND 6, OLD and RUN. 


Instructions will be displayed on the screen. Basically, you delete lines 
1, 3060, then save the rest of the program in memory (lines 3100 - 4900) on 
a separate tape. 


When you are ready to save or write a program ог data to а file, initialize 
the following variables: 


= device # 
= file # 
C$ = CHR(13) 
DIM E$(210) 
DIM H$(42) 
DIM Z$(254) 


D 
F 


then append this saved program to your current program. Immediately before 
saving your file or writing/printing your data, do a GOSUB 4000. Immediately 
after storing your file, do a GOSUB 3000. Your old file header will have been 
replaced. і 


CAUTION: Make sure the above variables do not clash with those already eo 
dimensioned by your program. That is, you may have to do an VA 

INIT before dimensioning the three strings. 
` 
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DESKTOP COMPUTER 
Tektronix: — APPLICATIONS LIBRARY PROGRAM 


| TITLE... 


| PHEADER 


ORIGINAL DATE REVISION DATE 
January, 1979 September, 1980 8K 


Басаў County of San Diego PERIPHERALS 
Bob Manthey San Diego, CA 


ABSTRACT 


EQUIPMENT AND OPTIONS REQUIRED 


Files: 1 ASCII Program 


Statements: 38 


This file contains an example of how the tape-cartridge identifier created 
with FMARKER might be used as part of the BASIC program identifier line. 


The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Іпс., assumes no responsibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part thereof. 
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Load the program through the TAPEMENU, or FIND 7, OLD and RUN. 


Í OPERATING INSTRUCTIONS 
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TITLE 
PHEADER 
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DESKTOP COMPUTER 
текгопх __ APPLICATIONS LIBRARY PROGRAM 


НИ Е 


STRIPPER 
EQUIPMENT AND OPTIONS REQUIRED 
ORIGINAL DATE ie DATE 
| Novenber, 1979 March, 1980 32K 
AUTHOR . PERIPHERALS 
County of San Diego 


Bob Manthey San Diego, CA Optional -4924 Tape Drive 
ABSTRACT 


I Files: 1 ASCII Program 
Statements: 260 


This program strips the 'REMarks' from an ASCII Program file. One of three 
stripping modes is available: 


1. Delete REMark commentary 


2. Delete REMark line 


3. Delete REMark line and RENumber the following line 


The stripped program is saved and labeled as a separate ASCII Program file. The 
original program remains intact. 


32K Memory: The documented program is 8.5K in size. 
The stripped program is 5K in size. 


In a 32K single-tape system, the utility will strip a program whose final size 
can reach 25K maximum. In a dual-tape system, there is no memory limit as the 
stripped program is transferred to its file on a line-by-line basis. 


Optional 4924 Tape Drive: If a 4924 is available, change line 116 to read 
D2-2 (2 is the device address). The program will automatically compensate. 


The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Inc:, assumes no responsibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part thereof. 
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TITLE 


Ascii Program Remarks Stripper Utility | | 


NAO 5406 02 


Тһе program is written іп а modular format, іп а top down style with 
liberal use of 'REMARK's. (I treat the 'REMARK' line of a module as 
if it were the Label to that routine. You will notice in the stripped 


version of the program that the first statement-line of each module has 


· been renumbered to that of the former 'REMARK' line of the documented 


version. This is accomplished using Mode-3 of the 'STRIPPER' utility.) 
Briefly, the program performs in the following manner: 
1. Locate and validate a user selected source file. 


Load a program line from the file. 


If a 'REMARK' line, strip according to the user selected mode. 


2 
3. ІЁ а "ЕТ" statement, delete the "ЕТ". 
4 
5 


Save line in secondary file if dual-tape system, or add line to 

Program-Dump$ if single-tape system. 

Repeat 2-thru-4 until Source File is exhausted. 

If a single-tape system, create a file and save the stripped Dump$. ТӨ) 
Mark the new File-Header appropriately. | 
Loop back to 1. 


NOTE: 


The program automatically sets a file offset for а used "Scratch" tape, 

only once, after the initial Program Sign-On. This routine is then deleted 
by the program. (Іп a single-tape system the "Scratch' tape is the Source 
tape.) Hence, if you change the "Scratch" tape (or Source tape in single- 
tape systems) it will be necessary to either relaod the 'STRIPPER' program 
and start fresh, or change the existing file offset by aborting the program, 
typing "02= (пем file offset#)", and then rerunning the program. If you wish, 
you may retain the Offset routines by deleting lines 862 & 864. ОЁ course 
this will diminish the maximum stripped-program size that a single.tape 
system may accomodate. The stripped version of this program has stripped a 
29k Source program producing a 15k Program-Dump$ using Mode-1 (strip 


commentary only). 
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PAGE МО 25 
TITLE 


Авс11 Program Remarks Stripper Utility 


Also, Note that Routine 2500 modifies an existing file header-extender апа 
truncates 1t to the 'F Marker' format of 31 Bytes. If you wish to retain 


the сспрієге extender disable Line 2530. 
II The Program creates and stores опе Ascii File per Source File. ІЁ you 
use a Single-Tape System there will have to be enough free space оп the 
Source Tape to accommodate this file! 
111 See Lines 100 - 199 for Internal Data Storage. 


IV See Program 'Remark's for methods used. 


Program operation prompts for all required input. Inputting 'Return' on 


Starting Line? will default to the value stored іп 11 (see Line 128). 
'Return' on Type of Stripping will default to Туре-1. 


А11 Yes/No questions may be answered in the affirmative with 'Yes', 'Y', or 


"1" and negatively with any other input ('Return'). 
VI There are no references. 


VII The Program include а Cross-Reference Index of the "Stripper' 


Program. 


FINAL COMMENT: 


This Utility is intended as an aid in programming in that it should allow 
the programmer to prepare a well documented source program while at the. 


same time producing a more optimally sized run-time program from the source. 


Тһе three modes available, 1. Delete REM Commentary, 
2. Delete REM Line, or 
3. Delete REM Line and Renumber Following Line, 
should cover the majority of programming-styles.  Mode-1 should be used 
whenever possible while a program is being debugged as it will allow the 


programmer to follow the modular structure of the program while eliminating 
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РАСЕ МО: 26 
TITLE s | " 


Ascii Program Remarks STRIPPER Utility ( 


the majority of excess verbiage. 


WARNING: Mode-2 should never be used on programs in which 'Remark' Lines 


serve as Labels to Routines within the Program! (This includes all my 


Programs.) 


ы 
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"— DESKTOP COMPUTER 
<<.ГОПІХ APPLICATIONS LIBRARY PROGRAM 


CROSSREF 


EQUIPMENT AND OPTIONS REQUIRED 
ORIGINAL DATE REVISION DATE | 


December, 1979 September, 1980 32K 
AUTHOR 


County of San Diego PERIPHERALS 
Bob Manthey San Diego, CA Optional - 4924 Tape Drive 
ABSTRACT | 


Files: 1 ASCII Program 


Statements: 404 


This program will sequentially index a cross-referenced ASCII program. The 
cross-referencing may include six ог 13 commands: 


OF, GO ТО, GOSUB, THEN, RESTORE, & USING only 
or all of the above plus 


DELETE, LIST, SAVE, APPEND, RENUMBER, CALL and RUN 


The index is saved and labeled as an ASCII program of REMark statements. This 


file may be loaded later for display, or appended to the source file from which 
it derived. 


32K Memory: The documented program is 15K in size. 
The stripped program is 9K in size. 


In 32K the program will handle 400 references. Users may 
experimentally try it in smaller memories by changing the vector 
КІ and 51 dimensions in line 220-240. NOTE: Lines 1070 - 1090 
delete those portions of the program used only once to save space. 


Optional 4924 Tape Drive: If a 4924 is available, change line 166 to read 
02-2 (where 2 is the device address). The program will 
automatically compensate. 


The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Іпс., assumes no responsibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part thereof. 
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TITLE CROSSREF": 


ASCII PROGRAM CROSSREFERENCE UTILITY 


The program is written іп a modular format in a top-down. style with liberal 
use of 'Remarks'. (I treat the 'Remark' line of a module as if it were the 
lable to that routine. You will notice in the stripped program that the 
first statement-line of each module has been renumbered to that of the former 


'Remark' line. This is done automatically by the 'Stripper' program.) 
Briefly, the program functions in the following manner: 


Locate and validate a user selected source file. 

Load a program line. | 

Parse for 'Reserved-Word's. 

If found save source-line # & reference-line #. 

Repeat 2-4 until source file is exhausted. 

Perform a simultaneous sort of source-line # & reference-line #. 
Construct a cross-reference index in a 'Remark' line format. 
Create a Pier’ sdve the index. 


Mark the new file-header appropriately. 


1. 
2. 
5. 
4. 
5; 
6. 
7. 
8. 
9. 
10. 


Repeat 1. 


МОТЕ: 


Тһе program automatically sets а file offset for а used 'Scratch' таре, олсе, 
after the initial program sign-on. This routine is then deleted by the program. 
(In a single tape system the 'Scratch' tape is the source tape.) Hence, if 

you change the 'Scratch' tape (or source tape in single tape systems) it will 
be necessary to either reload the 'Crossref' program and start fresh or change 
the present file offset by aborting the program, typing '02 = (New File 

Offset #)' and then rerunning. If you wish you may retain these routines by 
disabling line1080 (make it a 'Remark' line). This will naturally diminish 
the maximum cross-reference index size. The present stripped program has 
successfully cross-referenced 25K source programs with resultant indexes of 


170+ source lines 8 25ñ+ reference lines! 
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TITLE А 
"CROSSREF" 


ASCII PROGRAM CROSSREFERENCE UTILITY 


Also, note that routine 5400 modifies an existing file header-extender and 
truncates it to 31 bytes. (This fits the 'F Marker' display format.) If you 


don't wish to truncate the header-extender disable line 552f. 


The Program creates and stores one ASCII file per source file. ТЕ you use 
single-tape system there will have to be enough free space on the source 
tape to accommodate this file. Іп effect, the file created is an addendum 
to the program-source file from which it was derived and may be appended to 


it if you wish. 
See Lines 100 - 299 for internal data storage. 
See Program "Remark's for methods used. 


The program operation is straightforward as it prompts for the required input. 
Inputting 'Return' on starting line # will default to that stored in 11 (see 


Line 178).  'Return' on type-total of word parse will default to type 1. 


А11 Yes/No questions may be answered affirmitively with 'Yes', 'Y', or '1' 


and in the negative with any other input ('Return'). 
There are no references. 
Program listings include a cross-reference index of the 'CROSSREF' program. 


FINAL COMMENT: 


The index produced by this utility is intended as a primary programming tool 
in that it will quickly allow the programmer to more readily visualize the 
flow of a program while simultaneously alleviating the potential problems 


arising from the arbitrary relocation or deletion of program segments. 
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TITLE 

CROSSREF С 
МЈ 
am 
ми 
У, 
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ЭРЧ | РЕЗКТОР COMPUTER 
ТЕКІГОПІХ APPLICATIONS LIBRARY PROGRAM 


TITLE 


TAPEDUPE 


EQUIPMENT AND OPTIONS REQUIRED 
ORIGINAL DATE REVISION DATE 
October, 1980 16K 


AUTHOR County of San Diego |PERIPHERALS 
Modified by Bob Manthey San Diego, СА 4924 Tape Drive 


ABSTRACT 


Files: 1 ASCII Program 


Statements: 320 


This program transfers any type of program or data files from the 4050 internal 


tape drive to the 4924 tape drive. The duplicated file will retain the original 
header and extender. 


The program will automatically MARK the new files, if desired. 


The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Inc., assumes no responsibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part thereof. 
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TITLE 


TAPEDUPE 


“| OPERATING INSTRUCTIONS | эы 
Insert the target tape into the 4924 tape drive. 


Load the TAPEDUPE program into 4050 memory through the tape directory, or 
FIND 10, OLD and RUN. 


Insert your source tape into the 4050 memory and respond to the prompts. 


If you are duplicating the entire tape, the program will automatically assign 
the source files to the same file numbers on the duplicate tape. 


However, if you are duplicating only a portion of the tape, you may choose the 
file numbers on the 4924 into which to transfer your source files. 


g 
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| ЭР DESKTOP COMPUTER 
Tektronix APPLICATIONS LIBRARY PROGRAM 


| TITLE 

%72 ОО ЕОШРМЕМТ АМО OPTIONS REQUIRED 
ORIGINAL РАТЕ REVISION DATE 
October, 1980 16K 
AUTHOR PERIPHERALS 


County of San Diego 
Bob Manthey San Diego, CA 


ABSTRACT 
Files: 1 ASCII Program 


Statements: 172 


This sample program generatesa list of random and ordered numbers which are then 
sorted by means of a Bubble-Sort routine utilizing a floating window; followed by 
a Shell-Metzner Sort for comparison. Both routines may be used, as is, with only 


the array name and element variables changed to ones appropriate to your program. 


I. The Bubble-Window sort is my transcription of a North Star Basic routine 
written by Paul T. Brady, and published in the September 1980 issue of "BYTE" 
(CN magazine (see днева article). 
Тһе Shell-Metzner sort is my transcription of a routine originally transcribed 
into North Star Basic by Steven Fisher, Р.О.Вох 457, La Mesa, CA 92041, and 
made available by him to the San Diego North Star User Group Library in 1978. 
(See "CROSSREF" for a 2-vector sort modification of the same routine.) 
NOTE: 
As written, each routine sorts a vector in a low-to-high order. However, the 
sort order may be changed to high.to-low order by simply changing the vector 
comparison operator: 
2330 IF NOT(A(J)< A(J+1)) THEN 2700 ;Bubl-Sort 


5410 IF МОТ(А(Н)< A(L)) THEN 3600 ;Shel-Sort 


The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Їпс., assumes no responsibility and shall have no liability, consequential or otherwise, of 


any kind arising from the use of this program material or any part thereof. 
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"COMPSORT" 


Sample: 


Bubble-Window & Shell-Metzner Sorts 


There are no data-files involved. 


See program lines 100-199 for internal data storage. 


Briefly, the program performs as follows: 


1. 


2: 


Sign-On. 

Display program description. 

If requested, call sort-demo леви 

Input, and validate, number of random #'5 to sort. 
If "0", jump to 9. 

Generate and display random and ordered number list. 
Sort list with Bubble-Window technique and display. 
Sort list with Shell-Metzner technique and display. 
If requested, loop back to 4. 


program 'REMARK's for methods used. 


program operation 15 straightforward as it prompts for the required input. 


YES/NO questions may be answered affirmatively with 'YES', "Nt iom EU, 


negatively with any other input (e.g. 'ВЕТОВМ'). 


"Sorting With a Catch", "BYTE", September 1980, рр. 322-3, 


by Paul T. Brady, Marcshire Dr., Middletown, N.J. 07748. 


. The program listing includes a cross-reference index of the COMPSORT program, 


са ЛЭГ, 117 
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ТЇТЇЕ 
"СОМР50КТ" 


Sample: Bubble-Window 8 Shell Metzner Sorts 


FINAL COMMENT: 

| Тре Bubble-Window routine "...1$ designed specifically to sort listswith only а 
few entries out of order. It can even be used to check a list quickly to ensure 
that all entries are ordered..." 
The Shell-Metzner technique, on the other hand, is reasonably efficient when used 
with moderate amounts of random sequential data needing to be sorted. 
Either routine should be easy to adapt to specific sorting configurations (see 


"CROSSREF") in a variety of programming languages, or dialects. 


30 ELEMENT VECTOR 


(^ SORT SPEED COMPARISONS (seconds) 
u Bubl-Sort Shel-Sort Bubl/Shel % 
Random #'5 to Sort - 0 3 14 21 
1 y 17.5 40 
15 | 34 20 170 
50 45 23 193.5 
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6502 Loop Control 


Gordon Campbell, 36 Doubletree Rd, Willowdale, Ontario, 
Canada 


For clarity, the best way to loop through a field is to 
start at the beginning and stop at the end. It is important 
to be able to change the content or length of the field 
without having to change the code that handles it. Some 
people use a marker byte such as hexadecimal 00 to stop 
the loop; however, if you make your assembler work for 
you, this is unnecessary. 

Listing 1 is an example of how to make your assembler 
perform this task. The X register is used to index through 
a field. The code is set up so that when the register hits 
zero, execution is terminated. Thus, begin by loading the 
register with 256 minus the length of the field. Then work 
through the field from start to end by loading the ac- 
cumulator with the byte stored at the end of the message 
minus 256, plus the contents of the X register. The result 
is that when the X register hits zero, you are done. 

The code shown has been used with two assemblers: 


From S-100 to 
IEEE-488 


P&T-488 + S-100 computer = Intelligence 
for your instrumentation System 


The P&T-488 permits an S-100 computer to operate as a talker, 
listener, or controller on the IEEE-488 instrumentation bus for 
less than half the cost of calculator-based systems. Software 
packages which give access to the 488 bus from high level lan- 
guages such as BASIC are available for CP/M, North Star DOS 
/BASIC, and Cromemco CDOS. Or “roll your омп'' system 
with the custom system package of assembly language drivers. 


P&T-488, assembled and tested, any 
peus software package: $450 (domestic USA) 
TROUT 


PICKLES & TROUT 


PO BOX 1206. GOLETA. CA 93017. (805) 967-9563 
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Carl Мовегв ASSM/TED, and Dan Fylstra’s 6502 
Assembler in BASIC, published by Personal Software. 
Fylstra's assembler generates an error message on the first 
pass if MSG and MSGEND follow the code that uses 
them, but then produces correct object code. Of greater 
concern is the fact that both assemblers do not notice if 
MSG is greater than 256 bytes long. This should be an er- 
ror condition that raises a diagnostic. In both cases the 
only result is that incorrect code is produced. 


0010 .ВА $7000 

0020 .О5 

0030 15 

0040 ; ** HOW TO SCAN А FIELD ** 
0050 ; (МАКЕ YOUR ASSEMBLER WORK) 
0060 ; 

0070 ; THE OPTIMUM METHOD OF LOOP 


0080 ; CONTROL ON А 6502. MAXIMUM 
0090 ; OF 256 BYTES OF DATA. 
0100 ; 
010 ; 
0120 ; 
0130 ; 
0140 | 
7000- A2 Fl 0150 LDX #MSG + 256 - MSGEND 
7002- BD 1B 6F 0160 PRLOOP LDA MSGEND - 256,Х 
7005- 20 D2 FF 0170 JSR PRINT 
7008- ЕВ 0180 INX 
7009- DO Е? 0190 ВМЕ PRLOOP ” 
0200 ; I C э, 
0210: ( 
0220 ; МЈ 
700B- 00 0230 ВВК 
0240; 
700С- 504С 45 0250 MSG „ВУ ‘PLEASE PRINT МЕ? 
700Е- 41 53 45 
7012- 20 50 52 
7015- 49 4Е 54 
7018- 20 4D 45 
0260 MSGEND 
0270 ; 
0280 PRINT | .DE $FFD2 
0290 ЕМ 
LABEL FILE: | / = EXTERNAL | 
PRLOOP = 7002 MSG = 700С MSGEND = 7018 
/РВІМТ = FFD2 
//0000,701В.701В 
> 


Sorting With а Catch 


Paul T Brady, 91 Marcshire Dr, Middletown NJ 07748 


So much has been said concerning various sorting ` 
algorithms that it hardly seems possible to be able to con- 


tribute to this topic; and yet, in a small business (a nature 


center, to Бе precise), we have developed а sorting 
routine that handles accounting entries, mailing list en- 
tries, etc, at a speed that leaves fancy algorithms in the 
dust. The special beauty of this technique is that it is very 
simple, and involves only a slight modification of the 
usually terribly inefficient brute-force bubble technique. 

The routine has another advantage—it will not disturb 
the order of ties. For example, if one orders by zip code, it 
will not rearrange entries having the same zip code. This 
is an advantage if the list were previously alphabetized 
and you wanted to retain alphabetization within zip 
codes. 

There is a catch. This routine is absolutely terrible for 
ordering a true random list. The routine is designed to 
handle a list that already is nearly in order, and you want 
to add a few extra items. But this is exactly the case in a 
mailing list, in which you add 20 names to a 1500-name 
list, or in accounting, in which you add 15 transactions to 
a 60-item list. 


The Algorithm 

The algorithm works as follows: assume that you have 
an array of L items, A(I), I = 1 to L. In the standard bub- 
ble sort, you compare A(1) with A(2). Assume that you 
want the list ordered from smallest to largest entry. Then, 
if A(1) < = AQ), leave them alone, but if АД) > A(2), 
reverse them and proceed pairwise down the list. The last 
comparison made is between A(L — 1) and A(L), reversing 
them if A(L—1) > A(L). You have just made L —1 pair- 
wise comparisons. 

For those unfamiliar with this method, а moment's 
thought should demonstrate that in this first pass you 
have guaranteed that the largest entry has sunk to the 
bottom. That is, A(L) now is the largest entry. In subse- 
quent passes, it is no longer necessary to test anything 
against A(L). So, the second pass ends by comparing 
A(L - 2) with A(L—1). But now, you have guaranteed 
that the second biggest entry is in the L— 1 slot, so each 
successive pass requires one less comparison. 

Even with the shortcut of cutting each pass to be one 
shorter than the previous pass, this method still takes a 
long time. But now consider the following. Suppose, dur- 
ing the first pass of L—1 comparisons, we check to see 
just how well ordered the list already is. We will set up a 
window in which W equals the first pair that was 
ordered, and X equals the last pair. Suppose the list con- 
tains 85 items, but after the first pass, W = 26 and X = 
34. This means that everything beyond 34 is already 
ordered. Items earlier than 26 may not be completely in 
order when considering later items, but the very next pass 
can compare entry twenty-five with entry twenty-six; ie: 
at W —1. So, we have a window that will ascend to the 
top of the list. Further, on each successive pass we will 
reevaluate W and X. As soon as X < = 1, we can stop. 
(Note: X can equal zero in the special case that the entire 
list was already in order before you invoked the routine.) 


The Program 

This idea is so simple that it cannot be new; yet, 1 have 
not seen it mentioned, and even if it is published 
elsewhere, it is worth repeating. The code in listing 1 is 
for North Star BASIC, in which the semicolon separates 
statements on the same line. W and X have already been 
defined. T, T1, and T2 are temporary variables. 115 an in- 
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dex variable, and A(I) is the array. The A(I) could also be 
pointers to string variables; the technique is clearly not 
limited to ordering numbers. 

A final comment. This routine is at its very best if the 
list is already completely ordered before calling it; it 
makes one pass through the list, discovers that the list is 
already ordered (X —0 in statement 135), and quits. This 
is not at all a ridiculous situation. We have several pro- 
grams that require ordered data in files, and call the sort 
routine whenever a "write" is called for, even if nothing 
was done to disturb the order. In such instances, the sort 
is only a momentary delay. 


Listing 1: A bubble sort with a window. This routine is designed 
specifically to sort lists with only a few entries out of order. It 
can even be used to check a list quickly to ensure that all entries 
are ordered. The main attraction, though, is its simplicity; the 
actual North Star BASIC code is only eight lines long. 


100 W = 2;Х = L;REM W = UPPER WINDOW BOUND, X = LOWER 

105 FOR I=] TOL 

110 T1=X;X=0;IF W<2 THEN W =2;T2=W-1;W=0 

115 FOR J - T2 TO T1 - I;REM BEGIN АТ T2. STMT 110 
ASSURES Т2 > =]. 

120 IF A(D < = A(1+ 1) THEN 135 

125 Те АП;А()= АП + 1): АП + 1)  T;REM. OUT OF ORDER, 
REVERSE. 

130 Х= ЈЕ W = О THEN W =]; КЕМ W «0 IMPLIES FIRST 
REVERSAL. 

135 NEXT;IF X « = 1 THEN EXIT 145;NEXT 

140 STOP;REM FOR COMMENT ONLY - WILL NEVER BE 
REACHED. 

141 REM WILL NEVER FINISH SECOND "NEXT" OF 135 

145 REM ROUTINE ENDS HERE, LIST IS ORDERED. a 


СР/М“ FOR NORTH STAR SYSTEMS 


СРМ 2 , The Сита заба Software bus Зоес чие Hanored toy те Ror Str Фей тунт 2^6 8080 BOBS 280 те rocomputer: 
Sum Карот а. амат чете Star “С зоб уче боре ту Quad сарасит Оти дон, А vemm OF 248 ситцю "ут memo SLAC, 
Yo ана jet эх сөр cec Ine taming Бела Research sdt. алд баладе» Systems (08: programs are асов ол кор (Р.М пуш» 

“имам 


BOT "с" Пула (әде Toe BOSO ЗАТ (00) - Wu" purpose о би 
а run Pme тото Ваа. төлөө И 
Pw Detewer Deeds Dos tracing tui оре е мит any Conte Of yngie бөх 
а shy сем семит sge уде боите 
бег хөрж 460 СУМОМ Рай Ë 
ime 4: goes с^ ane өл ұсы wine весе Уст Аһ opona seecnen ең әс ÜN 
АПАРАР бо SOONG заб Oen! маў % уде 
Lanty әбке ба не мэрэг 
економ эзе 

4^ одем мае рең system + 
Comorian № Quad соки Тэх атаў 


0: МОВА Assemme: ises ма РАТ Status aneration 9! loge at to, 
сасе 8082 ен 480 ръвуде обе  Drysda devi Msi Onve агата) 
болот амер мрачне белер абе рысе tHe sue 
assem өледі mors бө» Ме мәлде» 

EDAD ifti Convert 8080 МЕТ Ines соці 
мес - вера interchange Program рог of ASM «но едемле erscutabe сооё 
бе nanye эмээг Фа 290 кука Рата ме "ае тиме by меч СОРТ (ве. 
бесаў Sanear me routing coann me program rame ето“ 
ге” pagnalion en етика сам 
FOPYETSION une тмутре уму это muth more 


Goume оегупу owners 10 00:20 wih e 
2001074! мУтвага expense 


Drem бара” anc 


тоусти 22 ReconhQurt your зб 
эр алан, memory vit 


1308 cev - Enencs me powe m SUB 
то бе ломи вте ері Да 
SUBMIT c - Bach ED PP PCT абм 

and аб амо parameters о үзе белес ЗҮЭЕН 16: Crewe nee түзет Onuene 
Danses, 


FORMAT 100: - PreQart Съвет? ме use 
win CPM 22 


FOLLOWWe SOFTWARE AVAILABLE м OST 5 75 ыю B HICH FORMATS 


MAC МАС Мосо анатом" 780 часе” му се обес ШТ amara YSTEMS РАСА ИМТ . миље 37% menu memory 
Зүлэг ame an array m рый брае 1431313 5утФос десуде BCD о "оғы pem Ориноко те CP V. 
юною Produces гтэ! ^a ne саде 
ament бөө pret an user лде уне. 345/35 

BTRUCTURED. SYSTEMS “восем (835: 2: 
7 GENERAN грае 

"RYE NTORY 

ACCOUNTS PAvABLE 

ACCOUNTS RECEIVABLE 


TER - tent toemane: брачни haa собу та 


80 бүлгээ туне ол берорсе Митра даб pee уа 
mac зала” soutea сабе aber му 


138 Same ay Ç Dite 780 onstruction se 395/115 


COMPILER SYSTEMS CBASIC-2 w 2 06 

Commie: er ecec one ВАЅГ Sen бот source cone 

QD ОМ ^ni падымае СО 

ЭМЦВААТ HARE 0438 6 mc. вагу бет! concecton tr үсэн Буе 
132мас+ ы 
вам мн 


Сату бы теңдесі 206 6 sas зэх 
Е ty 

одного lor mats граде sape. 

Structures Systems бор programs сесине СРМ эле CRAS 2 
"CP M ту д "еркіне trademark сі (зоны дезеатга 

бажане anc onc mention Васы тра pe 

стек зас əм 


‚> 
морс $7 30 сер $200 


(М6 PRATER - muhim тул» муше ур кю 132 си мие 
fest Боко tace tS срв much mer зме 


VERBATIM me бука он 10) mn 


DATADISK SYSTEMS, Р.О. BOX 195, POWAY, СА 92064, (714) 578-3831 


September 1980 © BYTE Publications Inc 323 


TITLE 


COMPSORT 


ЗОЛ 
Ё ок 
(NCREMENT 
Po 


000-6405-02 


PAGE NUMBER 38 


MULTIPLE-VECTOR SORT 


(Low-to-High Order) 
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E | DESKTOP COMPUTER 
Tektronix APPLICATIONS LIBRARY PROGRAM 


TITLE 


General Function Z=F(X,Y) Plot 


EQUIPMENT AND OPTIONS REQUIRED 


ORIGINAL DATE 


February, 1981 
AUTHOR 


Dony Robert 


REVISION DATE 


32K 
PERIPHERALS 


Optional - 4662 Plotter 


Brussels, Belgium 


ABSTRACT 
Files: 1 ASCII Program 


452 


Statements: 


This program draws two variable functions, z=f(x,y), with hidden lines removed. 
The draw is made іп a rectangular region so that Х1<Х<Х2 and Y1<Y<Y2. 


The function may be drawn on a block representing axes parallel to the three 
real axes X,Y,Z as well as the study intervals. 


The user writes the function to be studied, for instance in the form: 


2500 Z=-8*EXP(-X*X-Y*Y)*(X+Y) 


As soon as the user types RUN (RETURN), the program asks the inputs necessary 
to do the calculations and prompts for the following options. 


1. Any seeing angle. The eye always looks at the origin of the axis. The 
azimuth angle 01 can vary from 9° to 1909, and from 9° to -1809. Тһе 
dip angle 02 сап vary from 09 to 99° and from 29 to -99?. 


The number of slices cutting the surface. 
The number of joints on each slice. 


The eventual file number to record the drawing in 2.7.0.5 that allows a fast 
redraw of the function later. 


The true scale or a uniform scale. 


One or two directions of cutting. 


The drawing of the function with or without the axis block. 


The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Inc., assumes no responsibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part thereof. 
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TITLE 


General Function Z=F(X,Y) Plot 


OPERATING INSTRUCTIONS | М 


Load the program into memory through the tape directory, ог FIND33, апа OLD. 
Change statement 2500 to the function of your choice, then RUN the program 
and respond to the prompts. 
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TITLE 


General Function Z=F(X,Y) Plot 


^ 


COMMENTS 


I have tried to scan always the screen always from right to left (climbing or 
descending). Points in the foreground are always drawn first. After the drawing 

of each line, the maximal and minimal crest lines are update. Any line situated 
inside these two crest lines is eliminated. Moreover the program also draws the 
edges of the surface when two directions are asked. 

There are only 8 different cases according to the choice of the angles 01 and 02. 
They are called б) 0 . They аге reduced to two cases 
only for each direction. The increments for the lines and the points are Y3 and X3. 


G1 
G1 


1 ог 2 for the first direction 
3 оғ 4 Тог the second direction. 


Let us examine two cases among the eight! See the following раде 4. 


Case (1) : first direction Gl=1 (index loop 6-1) 


Тай - the fist line (FL1) is Y-Y2 and starts from X-Xl 
: - the following lines are obtained by calculating Y=Y2-(U-1).Y3 
~ the following points on each line are calculated by X-X1«V.X3 


“second direction 61-3 (index loop G=2) 


- the first line (FL2) is Х-Х2 and starts from у-Ү2 
- the following lines are obtained by calculating X-X2-(U-1).X3 
- the following points on each line are calculated by Y-Y2-V.Y3 


Case : first direction Gl=2 (index loop 6-1) 


- the first line (FL1) is Ү=Ү1 and starts from Х-Х2 
- the following lines are obtained by calculating Ү=Ү1+(0-1).ҮЗ 
- the following points on each line are calculated by X-X2-V.X3 


second direction 61-4 (index loop 6-2) 


- the first line (FL2) is Х-ХІ and starts from Ү-Ү1 
~ the following lines are obtained by calculated Х=Х1+(0-1).Х3 
- the following points on each line are calculated by Y=Y1+V.Y3 


Reasoning in the same way for the other cases, we easily obtain the following 
flowchart.(page 5) | | 
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TITLE 


General Function Z=F(X,Y) Plot 


л А 
02 уо: SEEN FROM ABOVE O£ < 0 : SEEN FROM BEWZATH| 2 
°. ^ . ^ 
0 «да «30 0<01 < % ры (6122) 
ры. (64:3) 2 
рабе (ай 
и 
— 110' t < -40' 
11 (6489) 
FLA = Fir зе : ` 
ast LINE Д5 DIRECTion | Fiz2 Frasr (іме 27 DinEcTion 
La] f тә THE X ахаб 177 Z то THE У AKES ( j 
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TITLE 


General Function Z=F(X,Y) Plot 


СА = А 6А-2 64-3 
У-Ү1-(а-4)У3 YxY4 (щ-4)У3 Ха Xt-(4-4)X. 
X2M Ха ХА Y= У4, 


Ys А1+ \.Х5 У.У +1 Уз 


TN FLowcHART FoR THE 8 CASES 
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ТЇТЇЕ 
General Function X=F(X,Y) Plot 


THE HIDDEN LINE PROBLEM. 


Let's take a point (А1,В1) which 
allows to determine Р and the 
next point (A2,B2) which 
determine Q. We can have: Ро 


UFPER 
CREST d 


£ 
1) Ред and 0-2 оғ Р-1 and 0-1 Свв 6 aet 
That means that the segment Р. 4 
joining the two points 15 6-4 

visible. 


Р=2 and 0=0 or Р-1 and 050 оғ Р=0 and 0-1 or Р-0 апа 0=2 


That means tnat the segment is partly hidden and си%5 опе of the crest lines. 
So the intersection point (A3,B3) is to be calculated. It is the variable T 
which allows to know which crest line is cut. To find (A3,B3), we only have 
to find the intersection of.the two straight lines 01 апа 02. 


_ y - M(T,A1 zo Ж 
= М(Т,А2)-Я(Т, “Ae Al 


CRESTLIBE 


M(7,A3) 


The solution of the system is A3 = —LAE ВАТ з ТАЈ) АФ + МИТА?) Al. 


B3 = ва 82.М(Т,А1) 


D = M(T,A2) - M(T,A1) - B2 + Bl 


Remark: If 2-0, the segment is parallel to the crest line and must be drawn. 


3) Р-0 and 0-0 
Then the segment is completely hidden. 


4) PZ Q £ 0 


· Then the segment cuts the two crest lines simultaneously. So two intersections Ян 
points (А3,83) аге to Бе found. It is the switch variable 5 which allows, © 
after calculating the first intersection point, to calculate the second one. i 
If P=1 then T=1 first then T=2. 

If P=2 then T=2 first then Т=1. 
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й TITLE 


General Function Z=F(X,Y) Plot 
(т 


UPDATING THE CREST LINES MATRIX. 

The linear interpolation is used therefore. 
We have : y=m.x + p | 

At (А1,81)- | Bl = m.Al + p 

Ас (А2,82)-- | 

Тһе solution of that sysytem gives АРЕ CREST ИМЕ 


п = 82281. 
-3--Н 


: NEW АЕ См 
B2 т.А2 + р , BECOMES ОРРЕЄ CREST 


4.4 


LIWER CRE гани 


р 


. В1.А2 - B2.A1 
= —k—k я 
К=12+4 и 


Тһе variables 11 and 12 аге. the rounded values of Al апа Аг. 
Іп а loop with the index К varying from 12+] to 11 Бу step 1, ме сап calculate 
the corresponding ordinates of the segment with the formula: 


R = (82-81) + A2.B1 - А1.В? 


where K is substitued for x and R for y. 


DRAWING OF THE AXIS BLOCK. 


(PN We always try for the axis block never to come on the drawn surface except in some 
VU cases where it is impossible to avoid. For instance for the function 25Х.Х-Ү.Ү 
Е where 01-45 апа 02-30 .( see in the lot of drawing) 
Тһе representation of the axis block іп the 8 cases will always Бе copied from the 
following scheme. You only have to see the А а оп the screen as being іп 
FRONT ог AT BACK according to the case. (see раде 4) СЯБЕ 
VOLER Fou. T сы мера Н 
4 


(%х/ 
жа? 


(28) Е2/ 
выра боз Т ou SCREEN (зе х: 


In order to һауе only one program for the eight cases, the axis block is drawn 
according to the following scheme with the indicated variables. 


J1, J3, J5 represent X1 or X2 
32, 34, Ј6 " Yl or Y2 
(РІ [227 (РУ LY ш Х1, Х2, Ү1 ог Ү2 and аге printed. 
78 represents the minimum of the function and is printed. 


79 и maximum и" " | " “и 
B$ and C$ represent X or У 


т 
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Í TITLE 


General Function Z=F(X,Y) Plot 


If you imagine the surface in a box, you will note that the lowest point on the 
screen will always be (J3,J4) with Z=Z8 and that the highest point on the screen 
will always be (X5,Y5) with Z=Z9. : 

So, when drawing the axis block, you һауе to watch out for the minimum М3 and the 
maximum M4 of the function to be eventually corrected. That is why the coordinate 
of the lowest point (J3,J4) when z=Z8 is reevaluated. Then with the coordinate of 
the opposite point in relation to the axis center (X5,Y5) with Z=Z9, the 

maximum M4 is reevaluated. 

That allows the scales Н1 and H2 to be determined correctly before drawing the 
axis block. . 

A thorough examination of the eight possible cases gives the following flowchart. 
(see page 11). 


RECORDING OF THE DRAWING ON THE MAGNETIC TAPE. 


If F # 0 then the drawing is recorded in binary DATA on the tape for a quick 

further use. Binary data are memorized in the matrix G3(). At the start of each 

line Е1=0. In that case, we dimension G3 for N+1 points because we have to take 

into account that the edges of the surface are drawn. Varaible E is the points 

counter for matrix G3. 

If £140 then we check if the last memorized point in 63 is identical to the 

starting point (А1,В1) of the new segment to be drawn. Here is used the FUZZ 

function. | ( 


1) if YES then we memorize the arrival point (A2,B2) of the segment to be drawn М 
іп the matrix 63. 


2) if № then that means that hidden lines have been met. So we record the points 
already written in G3 then we resume to. fill G3 with the last point. 


Moreover, each time a line is finished, we have to record the matrix G3 (if F#0) 
In short we have the following flowchart (see раде 12) 


FASTER REDRAW OF THE FUNCTION. 


Make sure to use an empty tape or file when you record the data of a drawing. 

To read out the data in order to obtain a quick drawing, you only have to load 
the program in the computer and type RUN 5000 (RETURN) . 

The program asks for the number device and the number file to be read. 

The device is the PLOTTER (number=1) or the screen (number=32). 

The data are of course read exactly as they have been recorded, i.e in GDU. 
(see the flowchart on page 12) 


REMARKS: 1) It is obvious that the found minimum 78 and maximum Z9 which are 
printed are not necessarely the true values. The more the number of 
slices 1 and the number of points М are great, the more 78 and 79 will 
be close to reality. 
2) The axis block can also be recorded on tape. Personally I have not had 
enough memory to do so. Мл 
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TITLE 


General Function Z=F(X,Y) Plot 
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: РЕЗКТОР СОМРИТЕВ 
Tektronix: APPLICATIONS LIBRARY PROGRAM 


| Stereo Surface СОИ 
EQUIPMENT AND OPTIONS REQUIRED 
ORIGINAL DATE REVISION DATE 
March, 1981 4052/4 
AUTHOR University of Nottingham |PERIPHERALS - 
Dr. Р. К. Tregenza Nottingham, England Optional -4662/4663 Plotter 


ABSTRACT 


| Files: 1 ASCII Program 


Statements: 200 


An equation of the form Z=F(X,Y) is plotted as a surface drawn in perspective 
with optional plotter output as a stereo pair. The equation is contained in 

a subroutine which is listed initially on the screen. The user may change 

the perspective viewpoint and specify the number of lines drawn. Hidden lines are 
removed from the image. 


Functions must be continuous and injective. 


The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Inc., assumes no responsibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part thereof. 


000-6405-00 | | 7/80 


РАСЕ МОМВЕВ 74 
TITLE 


Stereo Surface 


OPERATING INSTRUCTIONS 


Load the program into memory throug hthe tape directory or FIND 34 апа OLD. 


After the initial RUN command, the screen displays the subroutine containing 
the function to be plotted. To change the function, press BREAK key twice 

and recode lines 3010 to 3999 with your function. Then type RUN again followed 
by pressing RETURN key. 


When the screen displays the subroutine containing the function to be plotted, 
press RETURN to allow the program to continue. 


You will be prompted for the following input: 
X and Y minimum and maximum 


Output Format - Enter 1 for single drawing on plotter 
" 2 for stereo pair 
or just press RETURN for screen drawing 


Number of drawn lines - This depends on drawing size, 40 - 60 being 
| appropriate Тог a drawing about 15" square. 


The drawing is then produced. 


When complete you'll be asked whether to repeat the same drawing with different 
parameters (e.g., plotter instead of screen), whether a perspective from a 
closer or more distant viewpoint is required, or from a greater or smaller 
altitude of view. Surfaces can be drawn from underneath. 


For a red/green stereo pair, Pen 1 on the 4663 should have a red pen, Pen 2 
a green pen. The success of the 3-D image seen when wearing red/green 
spectacles depends greatly on the form of the surface and on the viewpoint 
chosen. 
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Stereo Surface 


ENTER + FOR DIFFERENT ОРТСОТ FORMAT, ELSE JUST ‘RETURN’ 
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д, | DESKTOP COMPUTER 
Tektronix APPLICATIONS LIBRARY PROGRAM 


TITLE - АВЗТВАСТ МОМВЕН 


3-0 Plot м/мо Hidden Lines 
ORIGINAL DATE REVISION DATE 
March, 1981 16К 


AUTHOR | PERIPHERALS | 
Lothar Tschimpke Munich, Germany Optional - 4662/4663 Plotter 


EQUIPMENT AND OPTIONS REQUIRED 


ABSTRACT 


Files: 1 ASCII Program 
Statements: 272 
This program plots a net or lines of a mathematical or programmable function 


of two variables, e.g., Z=F(X,Y). The function can be viewed under any 
angle. 


When using the Hidden-Line Algorithm, the Z-axis has to be vertical. 


The program automatically begins drawing in front and generates а pattern, 
which gives the information, whether next line can be drawn or not. 


The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Inc., assumes no responsibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part thereof. 
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TITLE 


3-D Plot w/wo Hidden Lines 


МИ 
OPERATING INSTRUCTIONS 
The user provides the following information in the mainline program: 
Number of points of one line. 
N/NØ lines аге to be drawn. 
№ = 1: each line; М) = 2: each second line; etc. 
Selection of lines іп X- ог Y-direction; 
0) = 0: lines parallel to the X-axis; 
08 : lines parallel to the У-ах15. 
i “ш hidden line algorithm. 
Q3 : test whether actual line is above or below the last lines; 
03 = 1: test only whether actual line is above the last lines. 
04 : for equal dimensions of Х- and Y-limits; 
04 : Тог different dimensions of X and У (е.9., ft. and miles) 
Slope angle of the X-Y plane. © 
Slope angle of the Z-axis (has to be f for hidden-line alg.). 
Angle of the X-Y plane. 
Display address for the plotting device in use. 
for the 4050 screen: 71 = 32 
The X,Y,Z-coordinates are used in this program as Р(1),Р(2),Р(3). 
Minimum and maximum limits of the range to be drawn. 
Angles of view: 
ы 
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3-0 Plot w/wo Hidden Lines 


SHIFT KEYS 
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a Screen w/ Screen жо Keyboard 
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LOADING INSTRUCTIONS 


Load the program into memory through the tape directory, or FIND 35 and 
oLD. 


Change the statements in lines 5020-5070 to reflect your chosen 
function. 


Key in RUN. 
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TITLE 


3-D Plot w/wo Hidden Lines 


SHORT DESCRIPTION AND USE FOR ANY FUNCTION 
The program calculates the X- and Y- coordinates, named P(1) and P(2), in 
the area which is given by the limits of Q(2,3) and presents it to the 
subroutine in Тіпе 5000. There the value of Z, named P(3 ), is calculated 
as a function of P(1) and P(2). Any mathematical or programmable function 
may be positioned in the lines following 5000 closed by a RETURN statement. 
These coordinates are automatically transformed to the planar coordinates X 
and ҮЙ which сап be executed by a DRAW or MOVE statement. 
Bibliography: 
3-D with Perspective 
Will Gallant 
Applications Library 51/00-9507/0 Й 
AN 
bo 
USED VARIABLES 
I1 I2 
S 
V5 
Х4 
71 
- 


000-6405-02 | ТЕКТВОМХ ОЕЗКТОР COMPUTER PROGRAM 7/80 


РАСЕ МОМВЕН 83 


Í TITLE 
3-D Plot w/wo Hidden Lines 


== 2288. 
аа аа 
222222245 
22, 


дру фа, Se Се д” ew... | 
р S< 60057773 

аза Va LLL ~ a 
бае 


(67 ул ,у2,у3=@,@,-5@ 


000-6405-02 TEKTRONIX DESKTOP COMPUTER PROGRAM 7/80 


РАСЕ МОМВЕН 


п 
Ф 
е 
“.- 
E 
c 
Ф 
о 
то 
~ 
т 
о 
= 
~ 
= 
+ 
© 
= 
а. 
c 
1 
со 


ЫГ 


іч 


М 


us 
4 


4 
\ 
` 


1 
ума, 


` 
` 


` 


65 


АМУ МЗ 
94381I803N r108-d 


бәң-баәдиәзі әр-чәсләм 


эцашіцэ5] 3 


оос 


PAGE NUMBER 85 


" DESKTOP COMPUTER 
Tektronix APPLICATIONS LIBRARY PROGRAM 


AN PLOT3D 
EQUIPMENT AND OPTIONS В 
ORIGINAL DATE REVISION DATE ONS REQUIRED 


See Below 1 
PERIPHERALS 


AUTHOR Robert Kennedy c/o Elliot Noma 


3501 Market St., Phila,, Ра. 19104 (215) 386-0100 See Below 2 
ABSTRACT 


PLOT3D is a plotting routine which is to be run as an appended subroutine 
to a main program.  PLOT3D receives a vertical z values for a sequence of 
points on a iine through the x-y plane. These coordinates are rotated on 


the x and г axes and potted in the two dimensional plane on the graphic 
display unit with a hidden line routine. 


[ыы 


(т 4051 


16k (option 20) 


4907 


4662 (can be used with program modification) 


g The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Inc., assumes no responsibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part thereof. 


000-6405-00 
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PLOT3D 


Description 


PLOT3D receives z values for points on a line on the X-Y plane, 
The x,y,z coordinates for these points are rotated around the z-axis 
and then around the x-axis. PLOT3D then plots the line segments joining 
the rotated points, provided the segment appears above the hidden line 
horizen stored as a mask. The mask is an array which spans the screen's 
horizontal axis containing the values of the maximum vertical values 
(in screen coordinates) for the particular horizontal value, 


The plotted point is checked against the mask by comparing 
vertical values for the point and the mask given by the horizontal 
values. (NOTE: for this reason the horizontal values plotted must be 
positive, in the range of the mask, and integers.) The nine possibil- 
ities of this comparison are shown in the chart below: 


Current Point Previous Point Result 
> mask упазк (=mask) PLot line between points 


> mask 4 mask . Find intersection of mask 
and the line and draw from 
there 
mask >mask Plot line between points 


mask < mask Nothing 


& mask y mask Find intersection of line 
and mask, draw to there 


6 mask . < mask (= mask) Nothing 


Once plotted or attempted to plot, the mask values for the horizontal 
values affected is updated. 


After the line is plotted, control returns to the calling program 


and PLOT3D waits for the next line of z values. 


Internal Data Storage 


Variable Used to Store 


Flag to bypass initializing 
calculations 


Number of line 


Number of point 
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PLOT 3D 


Internal Data Storage contd. 
Variable Used to Store Type | 
K1 Loop parameter Array (2) 
K3 Loop step Simple 
Х1 X value for current point Simple 
Y2 Y-value for current point Simple 
thru A5 Rotation factors Simple 
Q Sent Y-value Array (N8) 


50 Shift factor for Y Simple 


F8 Flag showing the status 
of previous point Simple 


X2 X-value for previous point Simple 
Y2 Y-value for previous point Simple 


Cl X-value for intersection 
point Simple 


Y-value for intersection 
point Simple 


Used to calculate inter- 
section point Simple 


Mask Array (2000) 
Slope of plot line Simple 


Added value to adjusted 
mask Simple 


Mask value for current point Simple 
Rotation on Z-axis Simple 
Rotation on Y-axis Simple 
Shift value for X Simple 
Number of points per line Simple 
Flag showing which plot pro- 


gram is on (first or cross- 
gatch) Simple 
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TITLE 
PLOT3D 


Internal Data Storage contd. 


Variable Used to Store 


lo Estimated minimum y-value 


Hl Estimated maximum y-value 


Methods 
See Description Page 1 


Update of Mask- The slope between the previous point and current point 
is calculated and is added to the mask value of the 
horizontal points between the other two points in question 


Intersection of line and mask- The intersection of these two lines is 
achieved by a formula derived from the standard point- 
slope formula of plane geometry 


Rotation of Axes- Five rotation factors are derived from the sine and 
cosine of the given angles and are applied to the 
appropiate cooridinate 


Cross-Hatching- After the first plot, the x-axis is rotated an additional 
90 degrees and the coordinates are changed in retrospect 
by the main program; the vertical values are sichronized 
at an arbitray point and the horizontal values at zero 


Operating Instructions 


1. 014 main program which appends PLOT3D* 


Insure all inputed data is received 


OLD "sinxy", "a" 


RUN 
(the program is now interactive) 


«Оп the TEKniques Vol. 5 Мо. 4 ТІ tape, load through the program directory, ог 
FIND 36 OLD and RUN. 


NOTE: If the program files areitransferred to occupy other locations on a 
tape, statements 190 and 210 in file 36must be changed. 
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М РЕЗКТОР СОМРЏТЕВ 
текігопіх APPLICATIONS LIBRARY PROGRAM 


/ 
МА Pipechart 


ORIGINAL DATE REVISION DATE 
March 1981 | 


AUTHOR 


EQUIPMENT AND OPTIONS REQUIRED 
16K 


Whirlpool Corporation БЕҢЕНЕНАГӘ 
Steven Salisbury Benton Harbor, МІ 4662 Plotter - optional 


ABSTRACT 


1. Description 


This program quickly provides a three dimensional bar chart with shading. 
Up to 12 bars may be displayed on the 4050 screen or the 4662 plotter, 


Data entered from the keyboard is displayed in the form of N cylindrical 
bars, where N is the number of bars selected by the user. The bars 

are drawn on a stand, and a title block is placed above the bars for 

a one line, 52 character title. Due to the intensity of the shading, 
the program does not shade bars when drawing on the plotter. 


The Y-axis minimum is always set to zero. Only positive values may be 
plotted 


Pu The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Inc., assumes no responsibility and shall have no liability, consequential or otherwise, of 


any kind arising from the use of this program material or any part thereof. 
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Pipechart 


TITLE Pipechart 
SHIFT KEYS 
13 


SHIFT KEYS 
18 


Device Y-axis 
address в maximum 


4. Operating Instructions 


a. Overlay 
Key 7 Function 
1. Enters program at beginning of plot section. 


6. User selects new width, and width is corrected for 
number of bars. 


User selects new address for plot of chart 


User:selects new Y-axis maximum, Tic mark interval 15 
updated also (max./5). 


Note: Keys are used after 1st. execution to allow user to alter aspects 
of the graph without re-entering information. 


b. Program loading 


Since this is a stand alone program, it may be placed on any tape or 
disc file. From TEKniques Vol. 5 No. 4 T1 tape, load through the 
directory, or FIND 39, and OLD. 

Program execution 


Upon startup of the program, the following information is asked for: 


Number of bars (1-11) 

Bar width (0-1) 

Output device address (1 or 32) 
Title (52 character maximum) 
Data values for each bar 
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| TITLE 
Pipechart 
а | 
IN 
2. Internal Data Storage 
Variable Used to Store Type 
Number of Bars Simple 
Output Device Address Simple 
Bar Width Simple 
Data Array А (N) 
Y-axis maximum Simple 
Y-tic interval Simple 
Y-tic minimum (always zero) Simple 
Flag to draw full or half ellipse Simple 
Horizontal ellipse position locator Simple 
Vertical У Simple 
Horizontal ellipse range Simple 
Vertical і Simple 
| Horizontal screen position for each bar ARRAY X2 (N,2) 
Vertical Н "у n АВВАУ Ү2 (М) 
Current horizontal shading position Simple 
5 vertical Simple 

Vertical shading counter Simple 

С Next horizontal shading position Simple 

P^ " vertical с Simple 


01,02 Dummy input variables Simple 


I,J,J1,K For/next loopers Simple 


Method 


This program uses both UDU &GDU capabilities to develop the ellipses 
necessary to give the three diminsional appearance of the graph. It 
locates the positon of the ellipses by use of UDU's, then viewports a 
given area (determined by the number and width of bars) and draws the 
ellipse. As the full ellipse is drawn, the bar is shaded. This is done 
by a series of GDU input, move and draw statements. 


The stand is arbitrarily placed at the bottom of the bars, and the title 
block is placed above the bar area. Tic marks are printed along the side 
of the bar area and corresponding scallops (half ellipses) are drawn on 
the bars. 


ца 
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- 


Тһе graph is drawn, and the system goes out of execution mode. At 
this time, the user may select any user definable keys to alter aspects 
of the graph and re-draw it. 


Two examples follow 
Listing enclosed. 
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| TITLE 


Ріресһаг% 


THIS IS ñ SAMPLE OF THE PIPECHART 
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Í TITLE 


Pipechart 
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Ау. DESKTOP COMPUTER 
TeKtrODIX APPLICATIONS LIBRARY PROGRAM 


Contour Plots EQUIPMENT AND OPTIONS REQUIRED 
| ORIGINAL DATE REVISION DATE 
1/21/81: 8K 
AUTHOR Jerry W. Anderson PERIPHERALS 


12 Хэ о Building 
Bar 00 
| ABSTRACT 


This program plots response surfaces (ог contour plots) іп 
two dimensions. It uses the 3-dimensional full-quadratic model 


(or subsets thereof) as a function: 


2 = YÓ + A*X + Ваў + (AB)*X*Y + (ASQ)*X ^ 2 + (BSQ)*Y + 2 
where Z, X, Y are на НО рды Үй, А, В, АВ, А50, & В50 аге 
constants which may Бе known ог determined by regression. Very 
high resolution plots may be generated. The user may determine 


Ff \ the number of contours desired and their value. 


In effect, we have displayed a three-dimensional data space 
in two dimensions, much as a topographical map displays geographical 


features. 


ES The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Inc., assures no responsibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part thereof. 
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Contour Plots 


For a fixed contour value Z, and for increments over the range of the 

x axis, we may solve for Y using the quadratic formula. We then connect 
consecutive (x, у) pairs. Consideration is also given to the case in 
which the discriminant (b^ - 4 ас) <0.. 


5. Operating instructions 


а) Overlay - none is used 

b) Program Loading 
From TEKniques Vol. 5 No. 4 T1 tape, load through the tape 
directory, or FIND 40 OLD and RUN. 


Program Execution - Answer these prompted questions: 


Enter 
Enter 
Enter 
Enter 
Enter 
Enter 


output device # 

degree of resolution desired 

plot titles 

# contours desired 

contour values 

the constants from the full. quadratic model 


(be sure to enter a zero when appropriate) 


Enter 


Axis information 


(Minimum, maximum, increment) 


Example: 


Consider the equation: 


2 = 


2 2 


14Х41Ү14ХҮ-Х +Y 


over the range X #(-20, 20) 


Y Е(-20, 20) 


Look ас contour values of Z equal ко (10, 20, 30, 40, 


50, 


60, 70, 80, 90, 100). 


Using high resolution, ме пау see the results оп the 
following page. 


The 


effect you see is much the same as looking from 


above into an oval dish. 


000-6405-02 


TEKTRONIX DESKTOP COMPUTER PROGRAM 7/80 


Contour Plots 


Data Tape Structure 
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Ко tape or disc files are required by the program. 


Internal Data Storage 
Variable 


= Width Parameter іп Pri @ T, 17: 
= Height Parameter іп Pri @ Т,17: 
Output Device ў 
P4 Contours 
В (Ра) = Vector of contour values 
Ү@ = Constant Term 
А = x Coefficient 
y Coefficient 
xy Coefficient 
= x + 2 Coefficient 
= y + 2 Coefficient 
- Degree of Resolution 
= Plot min, x axis 
= Plot max, x axis 
Plot increment, x axis 
- Plot min, y axis 
: Plot max, y axis 
m = Plot increment, y axis 
х. = For/next Loop Index 
= For/next Loop Index 
For/next Loop Index 
For/next Loop Index 
= Loop Counter 
Starting index of plot loop 
= Stopping index of plot loop 
Loop Step (+1) 
Drawing increment (UDU) 
= x axis plotting values (current) 
= y axis plotting values (current) 
= b“ — 4 ac from quadratic equation 
= x axis plotting values (previous) 
y axis plotting values (previous) 
= Width of plotter page 
= Length of plotter page 


Methods 


It uses the quadratic formula 


-b + Мъ2 - 4 ас 


У З да 


000-6405-02 


Strings 


= String of "А" 


Plot Title 
Horizontal Axis Title 
Vertical Axis Title 


= Scratch String 


to solve колена = 0. 
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Contour.Plots 
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гог DESKTOP COMPUTER 
ад зана APPLICATIONS LIBRARY PROGRAM 


Hierarchal Clustering EQUIPMENT AND OPTIONS REQUIRED 


ORIGINAL DATE REVISION DATE 
| 1/20/81 32К 
AUTHOR Jerry W. Anderson PERIPHERALS ` 
12 11 ТО ВЕ Building 
Ñ ОРТ 4662, 4631 | 


ABSTRACT 


Consider a data set consisting of N vectors (or data points) each 
іп L dimensions. 


A sequence of classifications in which larger clusters (or 
groupings) are obtained through a merger of smaller ones is called 
a nested ог hierarchal classification. Вавіса11у, it shows the 
relationship between each data point and every other point in the 
data set by forming a tree or dendrograph (similar to a family tree). 
The similarity of two data points is inversely related to the 
distance between them along the branches of the tree. 


There are basically three types of hierarchal clustering: single 
linkage, average linkage, and complete linkage. Among these, single 
linkage is the most simple. It begins by finding the link between 
‘the two closest data points. The succeeding stages consist of finding 
the shortest remaining link which directly joins together data points 


not already joined indirectly through a chain of links or branches. 

In essence, it searches through the distance matrix seeking the 
shortest distance that will contribute to further linkage or branching 
of the clusters. 


The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Inc., assumes no responsibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part thereof. 
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Ніегагсһа1 Clustering 


Data Таре Structure 


Data may be either ASCII or Binary. 
matrix. 
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It is stored rowwise аз а data 


The file to be used must be specified by the user.. 


It must have been previously created prior to running this program 
(using Editor or а Data Entry program). 


Data may exist on program tape or a separate data tape. 


Keyboard Entry is an option. 


Internal Data Storage 


Data Matrix 

Distance Vector 

Index Vector 

Working Vector of Cluster #'s 
Ordered Cluster Vector 
Merge Vector 

Merge Distances 

Tree Horizontal Coordinates 
Tree Vertical Coordinates 
Rows in Data Matrix 

Cols in Data Matrix, Counter 
№ (1-1) /2 

Output Device # 

N-1 

2*N 

М2-2 

File # of Data 

Answer String 

TYP of File F 

Mean Vector 

Standard Deviation Vector 
Counter 

For/Next Index 

For/Next Index 

Scratch 

Scratch 

Scratch 

Scratch 

Scratch 

Scratch 

Scratch 

Scratch 

Scratch 

Scratch Counter 

Scratch Index 

Scratch Index 


Array 
Array 
Array 
Array 
Array 
Array 
Array 
Array 
Array 
Scalar 
Scalar 
Scalar 
Scalar 
Scalar 
Scalar 
Scalar 
Scalar 
String 
Scalar 
Array (M) 
Array (M) 
Scalar 
Scalar 
Scalar 
Scalar 
Scalar 
Scalar 
Scalar 
Scalar 
Scalar 
Scalar 
Scalar 
Scalar 
Scalar 
Scalar 
Scalar 
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Hierarchal Clustering 


Methods: Single Linkage Hierarchal Clustering Algorithm 


І, Compute the Lower Triangular Distance Matrix. 


ІІ, Store the results ав the triplets (414, i, 1), where dij is the 


distance between data point i and data point j according to some 
suitable distance metric or measure. 


Sort this collection of triplets into ascending order on 413. 


The first merger corresponds to the first distance in the sorted 
list, i.e., the smallest distance in the whole distance matrix. 


Choose for the next merger that pair of data points with the next 

largest distance, provided the two data points are not already in 

the same cluster (i.e., connected through one or more links). If 

the data points are already in the same cluster, bypass the merger 
and move on to the next triple. 


Continue Step V until ш-1 mergers have been made, where m is the 
number of data points in the data set. 


Operating Instructions 
A. No Overlay is used. 


B. To load the program, from TEKniques Vol. 5 No. 4 Т1 tape, load through 
the tape directory, or FIND 41, OLD and RUN. 


1. Тһе Program is executed by answering the necessary questions as 
prompted from the screen: 


а) # rows, # colums in data set 

b) Row identifiers (2 characters/Row) 

c) Device Address of Output 

d) File ў for data (Й = Keyboard Entry) 
e) Desire to center & Scale Data? 


The answer is always "yes" unless your measurements 
(columns) are all measured on the same scale. 


f) For 4662 output, enter paper size. 


Examples (data is on file 44) 


Eleven measurements were made on each of 8 products. Products 
B and Y were actually different lots of the same product, as 
were I 5 J, L & M, and С 5 Е. We desire to know something about 
the relative similarities and differences among these eight 
products. The data matrix is as follows: 


.0025 460 160 
.0015 520 159 
.0320 450 270 
.0330 430 270 
.0043 310 240 
.0045 280 240 
.0049 500 250 
.0036 470 250 


2022170 25607 21199 
2070000 22300 16356 
2414685 13007 9729 
2261855 16254 11731 
2251560 16037 11774 
2227055 16617 12310 
2442670 19619 14601 
2456880 16530 13195 


= t C оао ко 
Q) £ £ Un су Оу O (л 
Un Un їл Un Ui Un £P 0 
Коло оон 
л Cn {л Un с г тг 
ЕР è oob o s 
ноггіооо 
оОсосоооооо 
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Hierarchal Clustering 


The output of the program may be seen on the following page. 

We may conclude that I & J are the most similar products made, 
followed by L & M, С & E, then В & У. The grouping into pairs 
was as expected. (The smaller the distance with which two 
products "join up", the greater the similarity.) We may then 
conclude that among all pairs, pair B & Y and pair I & J are 
most similar. We then see that the group В, Y, I, J, L, & M 
are more similar among themselves than among the pair of С & Е. 


References 


Anderberg, Michael R., Applications of Cluster Analysis 
New York Academic Press, 1973. 
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Ніегатсһа1 Clustering 
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Hierarchal Clustering 
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| ЭР ОЕЗКТОР COMPUTER 
Tektronix APPLICATIONS LIBRARY PROGRAM 


COMMITTED TO EXCELLENCE 


Nonlinear Mapping 


EQUIPMENT AND OPTIONS REQUIRED 


ORIGINAL DATE ШЕ DATE 


1/21/81 32K + 
AUTHOR Тони W. Anderson PERIPHERALS 
12 рі Нион Building 


ЕЕ 


1. Nonlinear Mapping 


The purpose оЁ nonlinear mapping 15 to reduce the dimension of а data 

set consisting of, say, N vectors with L dimensions to one of lower 
dimensions. Specifically, it is usually desired to reduce the dimension- 
ality to 2 so that a cross plot may be used to observe the groups (or 
clustering) of the data units. This mapping to a lower-dimensional space 
is made such that the data structure is approximately preserved. This 
preservation is maintained by obtaining N points in lower-dimensional 
space such that their interpoint distances approximate the corresponding 
interpoint distances in L-space. In order words, we seek a set of N 
2-dimensional vectors whose distance matrix (N x N) is very near the 
distance matrix (N x N) of the original data set, i.e., N vectors in L 
dimensions. 


Designate the К vectors in L-space by Х., i= 1, ...,N. Designate 
the N vectors in d-space (where d = 2 usually) by Y y i= Iy М: 
Let the distance (according to any desired distance metric) between 
Х, апа X; in L-space be defined by dig” = dist (X;, X ). Similarly, 


12. the ас: between the DER vectors Yi МЕТ У. in d-space 
be defined by d,,= dist (Y,, Y,). ы 


Ме shall choose starting values for the У values іп 4-5расе. Using 
these starting values, we shall calculate the d-space distance, d.., 
from which we define an error E. This error tells us how well thé? 
present configuration of N points in d-space fits the N points in 


L-space: 


N 
1 : 
Е = 214, Нисэх я. 


Тһе next step in this iterative algorithm is to adjust the У variables 
so as to decrease the error E. А steepest descent procedure 15 used in 
order to minimize the error. 


The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Inc., assumes no responsibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part thereof. 
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Nonlinear Mapping 


Data Tape Structure 


Data may be ASCII or Binary. The data matrix must be stored rowwise on 
a single previously-created file. The даға may be entered with the 
Editor Rom Pack or with any Data Entry Program. Data may be on program 
tape or a separate data tape. 


Internal Data Storage 


Arrays 
D (М, М) = Data or observation matrix = Max. Column Variance 
Dl (M, М) = Upper triangular distance ` = Column with шах. 
matrix variance 
T (M,U) = Solution matrix Column with next 
C (N) = Centroid vector largest variance 
V (N) Variance vector 1.0Е-5 Fuzz 
Cl (M,U) = First partials | = For/Next index 
С2 (М,2) = Second partials Scratch partial 
= Scratch 
Scenes Scratch 
— Scratch 
Answer string to stan- Scratch 
dardize data = Distance Update 
= Plot title = Counter 
= Horizontal axis title = Mapping error 
= Vertical axis title = Min. for plot 
= String of data point = . for plot 
product code = fin. for plot 
Product codes string = . for plot 
= increment 
increment 
of 16 
# iterations = iterations 
Fudge factor empirically 
determined (.3 or .4) 
# of dimensions we reduce to 
# Rows in data matrix 
# Columns in data matrix 
M-1 
File # of data 
Device for graphical output 
Width of plotter page 
Length of plotter page 
Type of File F 
Scratch sum 
For/Next index 
For/Next index 
For/Next index 
I + 1 
For/Next index 
For/Next index 


Scalars 
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Nonlinear Mapping 


Method: 


Nonlinear Mapping Algorithm 


Let E(m) be the mapping error after the ud iteration: - 


2 
{di ie ULT (m) } АРҒЫ 


Algorithm: Тһе new 4-зрасе configuration at time ш+1 is given by 


= = * 
Ya (m+1) ре (m) - МЕ * Apg(m) 


where Apg(m) = ОЕ(ш) / 32 Е (ш) 
Уш (m) РА d (m) 


Z 
/ 


апа MF = .3 or .4 (this was determined empirically) 
The partial derivatives are given by: 
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Nonlinear Mapping 


In essence, we designate the N vectors in L-space by Х., 1-1, ..—.,N. 
Designate the N vectors in d-space (where d = 2 usually) by У., i= 1,...,N. 
Let the distance (according to any desired distance metric) bétween Х, апа Х, 


іп L-space Бе defined by а, .* = dist (Х., Х.). Similarly, let the distance 
between the corresponding vectors У. and У Зіп а-врасе ђе defined by 4.. = 

. i j ij 
dist (Yi, уў). 


Ме shall choose starting values for the У values іп 4-врасе. Using these 
starting values, we shall calculate the d-space distance, d.., from which we 
define an error E. This error tells us how well the present configuration of 
N points in d-space fits the N points in L-space. 


1 (ага 
шаг LX] 31... 
E = I(d,*)i <j а..* 
1] 


1] 


Тһе next step іп this iterative algorithm is to adjust the У variables зо аз 
to decrease the error Е. А steepest descent procedure is used in order to 
minimize the error. 


5. Operating Instructions 


а) Хо overlay is used 

b) Find x, where x 15 the file } 
On TEKniques Vol. 5 No. 4 T1 tape, load through the tape 
directory or FIND 42, OLD and RUN 


Answer the appropriate prompted questions: 


1) Size of data matrix 

2) 4 iterations desired (40 usually adequate) 

3) Device address for output 

&) Enter size of plotter paper оп 4662, if used. 

5) Enter the dimension to which you want data reduction (must be 
2 to observe data graphically). 

6) Enter file # for data set. Data may be either ASCII or Binary 
and stored rowwise. 

7) Answer 1Ё you desire data centered and scaled (i.e., normalized). 
Іп most cases, the answer will be yes. (The only exception would 
be if all columns in your data set have the same "units" and same 
scale.) As in most multivariate techniques, failure to normalize 
will result in "big" numbers carrying more weighting than smaller 
ones. 
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Nonlinear Mapping 


Example: (data is on file 44) 


Consider the following data matrix consisting measurements on each ої 8 
products labeled В, Y, C, E, 1, J, L and М: 


2022170 25607 21199 5 
2070000 22300 16356 0 
2414685 13007 9729 .6 
2261855 16254 11731 .6 
2251560 16037 11774 5 
2227055 16617 12310 4 
2442670 19619 14601 4 
2456880 16530 13195 3 


. 


= оса Hd Bd са ка Ы 
n Un (л (л {л (л ФУ р 
Ñ PO л лә» O P 
\л Ur Un Cn Б Б Б 
ҥ O £ £ Q су O O 
оооооооо 
оооооооо 


Ме wish to know the relative similarities and differences among the products 
with respect to all measurements as a group. Ву using nonlinear mapping as 

a data reduction technique, we can reduce this data set from (8, 11) to (8, 2) 
(while preserving interpoint distances as much as possible) and then cross- 
plot the two resulting columns. Closeness on this crossplot indicates ге- 
lative similarity. For example, ав may be seen оп the following page, prod- 
ucts B & Y are very similar, as are C & E, I & J, and L & M. However, the 
pair B & Y is relatively dissimilar to the pair C & E. The mapping error of 
.014 is good. Further discussion may be seen in the reference. 


6. References 


Sammon, John W., Jr. "А Nonlinear Mapping for Data Structure Analysis." 
IEEE Trans. Comput. Vol. C-18 pp. 401-409, May 1969. 
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Vertical Plot 


Jerry W. Anderson 
12 рі мн Building 


ABSTRACT | 


000-6405-00 


This program graphically presents on one page a data set consisting 
of M rows in N dimensions. Each of the M observations is rep- 
resented by a l-character code, which is plotted on each of N 
vertical scales across the page. А typical use of the program 


would be in an examination of M products, each with N measurements 


or properties (missing values are allowed). Relative product 


differences, with respect to each of the N measurements, are easily 


observed on the scales. Product and measurement labeling is allowed. 


Thus, we have depicted in two dimensions an N dimensional data space. 


We have consolidated many plots on one page. 


The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Inc., assumes no responsibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part thereof. 


111 


DESKTOP COMPUTER 
APPLICATIONS LIBRARY PROGRAM 


7/80 


РАСЕ МОМВЕВ 112 


Vertical Plot 


2. Data Tape Structure 
A. Data may be either ASCII or Binary in one data file. This file 
must have been previously created (and the data matrix stored 
rowwise) through апу data entry program or through the "Editor". 
Data may be on the same data tape or on a separate tape. 


Product Codes (optional) must be stored in an ASCII data file. 
Enter one product code per record. 


Internal Data Storage 


Arrays Strings 


B(M,N) Array holding data matrix String of column headings 
M3 (М) Vector of column minimums 1 character product labels 
МА (М) Vector of column maximums Plot heading 
F9 (N) Column heading lengths Scratch string 
Product code scratch string 
Answer string 
: Individual product label 
Simple - Scratch string holding 


N column minimum, maximum 
Device address of output 


File # of data matrix 

# rows in data matrix 

# columns in data matrix 
Missing value indicator # 
Character width 

Scratch column minimum 
Scratch column maximum 

x minimum window 

x maximum window 
Tolerance for offsetting a character 
For/Next Index 

For/Next Index 

For/Next Index 


Ба а ТА 
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Vertical Plot | 


Method | | 


Ме operate оп one column of the data matrix at а time. Опа 
vertical scale, че plot each data point appropriately оп the 
scale from minimum to maximum. We label it with the appro- 
priate l-letter code, being careful not to overwrite a letter 
that has been previously printed. 


Operating instructions 


A. No overlay is used 
B Find x, where x is the correct file 


Оп TEKniques Vol.5 Мо. 4 ТІ tape, Load through the tape directory ог 
FIND 43, OLD and RUN. 


Answer appropriate questions. 


Answer the prompted questions: 


1) Device # for output 
2) Enter product labels 
3) File # of data matrix 
&) Size of data matrix 


Missing value number - any real number may be used to 
represent a missing value, which will be ignored. 


Enter heading for Plot 

Enter product code file # (optional) 

You may choose to set your own minimums and maximums 
for each scale. 


Example: (Data is on File 44) 


Consider the 11 measurements made on each of 8 products 
(labeled B, Y, C, E, I, J, L, & M) as listed below: 


. 0034 
.0016 
.0470 
. 0600 
. 0064 
. 0070 
. 0079 
. 0063 


.0025 460 160 10 
.0015 520 159 42 
.0320 450 270 182 
.0330 430 270 182 
.0043 310 240 15 
.0045 280 240 7 
.0049 500 250 111 
.0036 470 250 133 


2022170 25607 21199 
2070000 22300 16356 
2414685 13007 9729 
2261855 16254 11731 
2251560 16037 11774 
2227055 16617 12310 
2442670 19619 14601 
2456880 16530 13195 


Z oU C, d tJ O =< tO 
осал O0 Ot 
ол (л Un (лл Б 
№ F: Un (л оо Q) со 
бл (лл (л PAR Б с 
но £- £ n O O © 
оооооооо 
оооооооо 


Ме шау observe the program output оп the following page. Ме see, for example, 
that with respect to measurement 10, products C & E had high values (270) 
whereas products В&Ү had low values (=160). We may make this comparison for 
each of the 11 measurements. Product comparisons & selections are thus made 
easy. 
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DESKTOP COMPUTER 
текігопіх APPLICATIONS LIBRARY PROGRAM 


TITLE 


REFERENCE INDEX 


ORIGINAL DATE REVISION DATE 
March, 1979 32K 


AUTHOR National Physical Res Lab PERIPHERALS 


i Council for Sci & Ind Res 
а Pretoria, South Africa 


EQUIPMENT AND OPTIONS REQUIRED 


| ABSTRACT 


Files: 1 ASCII Program 
Requires Dedicated Tape 


Statements: 385 


This program creates, stores on tape, updates and lists an index of 
literature references. The following data may be stored: 


Author 

Journal 

Volume 

Date 

Page 

Status (or type) Symbol 
Title 


The minimum information required is author, year of publication and the 


status symbol. Тһе rest is optional and the fields could be used for other 
information. 


| The program assigns a code to each reference, comrpised of the first three 
letters of the author's surname, the year of publication and another letter 
to distinguish between otherwise equal combinations. The references are 
arranged alphabetically in 26 data files according to these codes. New 
references are sorted and inserted in the appropriate file. Existing references 
within a file may be deleted or changed. 


The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Inc., assumes no responsibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part thereof. 
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| TITLE 


Reference Index 


DESCRIPTION 


Initialize 

Input Control 
Input Subroutine 
List Input 
Change Input 
Continue Input 
Save Input 

List Index 
Change Index 


PROGRAM LIMITATIONS 
DATA TAPE STRUCTURE 


OPERATING INSTRUCTIONS 


Introduction 
1: Initialize 


Continue Input 
Change Input 
Change Index 


List Input 
Save Input 
0: List Index 


2 

3 

4 

5: 

6: Input 
7 

8 

9: 

1 


APPENDIX А: FLOW DIAGRAMS 


User Definable Keys 
Initialize 

Input Control 

Input Subroutine 
List Input 

Change Input 
Continue Input 
Save Input 

List Index 

Change Index 
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| TITLE 


Reference Index 


DESCRIPTION 
References are entered in the following way: 


Author/Journal/Volume(Date)Page/Status(Type)Symbol 
Title 


Only the author, year of publication and the status (type) symbol аге 
mandatory, the rest is optional and the fields could be used for other 
information. 


The program assigns a six character code to each reference, as follows: 
AAAnnX where: 


AAA - first three letters of the author's surname 
nn - year of publication 
X  - letter to distinguish between otherwise equal codes. 


The program arranges the references alphabetically according to the codes assigned 
to each. 


The main program consists of a number of subprograms which are called by the User- 
Definable Keys (UDK). These programs will be described briefly. The functions 

of the UDKs will become clear from the operating instructions in Chapter 4. Flow 
diagrams are given in appendix А. Тһе variables used by the program are listed 

in Appendix B. 


Initialize (UDK 1) 


This subroutine initializes the program, and must be executed before any of the 
other subprograms can be run. This routine is called by pressing UDK 1 
(Initialize) or UDK 6 (Input). 


| The main functions of this subroutine are: 


delete string and array variables; 

assign dimensions to string and array variables; 

set initial values; 

set environment; 

determine whether titles are to be entered (printed). 
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TITLE 


Reference Index 


[Input Control (UDK 3/UDK 6) Го”, 


| 11115 program controls the reference input cycle. It is run after (or instead of) 
P'Initialize" by pressing ЦОК 6 (Input), or can be started without deleting data 
by pressing UDK 3 (Continue Input). 


The following steps are contained in a loop which ends only when 150 references 
have been entered or when a UDK is pressed: 

- call input subroutine 

- display the entered reference 


- add the reference to L$. 


{Input Subroutine (UDK 3 through 6) 


This subroutine enters references and compiles a temporary code. The program 
assigns an A as the last character in the code; it will be changed, if necessary, 
[ру the "Save Input" routine when the data is stored on magnetic tape (see Save 
Input). The routine is called by other subprograms whenever new reference data 
must be entered. 


The user splits the entered references into fields using "/" (slash) as end-of-field 
delimiter. Any blank spaces following a slash are removed. ЧУ, 


The program compiles the code from the first three characters in the author field 
and the two characters before the right bracket in the third field (year of 
publication). Any spaces directly before the bracket are removed. Ап А is 
placed in the 6th position of the code. For convenience, the status symbol is 
appended to the code. 


The input is checked for the following: 


- sufficient number of fields (at least three slashes); 

- minimum length of author (at least three characters); 

- if the author starts with an alphabetic character; 

- if a status symbol (other than a blank space) is given; 

- if any date (right bracket in third field) is entered; 

- if more than one right bracket is entered in the third field; 
- minimum length of date (at least two non-blank characters). 


The input is rearranged in the 120 character string H$ using the following format: 


Journal 
16 


| | |] | >) 
ШІ) ЫЛ 201: Ж. 2 
1 7 10 32 50 73 120 


where 5 is the status symbol. 
000-6405-02 TEKTRONIX DESKTOP COMPUTER PROGRAM 7/80 


PAGE NUMBER 119 
TITLE 


Reference Index 


List Input (UDK 8) 


This routine lists the new references that have been entered (in the original 
order). 


[Change Input (UDK 4) 


This routine changes the entered references which are not yet stored on magnetic 
tape. The user identifies the reference to be changed by entering its temporary 
code. 


The reference is displayed, if found. 1% сап be deleted or be replaced, in which 
case the "Input Subroutine" is called. If a temporary code is duplicated, the next 
entry with the same code can be found by entering N (next). 


Continue Input (UDK 3) 


This routine continues "Input Control" after an interruption. Тһе data already 
entered will not be deleted, as it would if input were resumed by pressing UDK 6 
(Input). 


The number of entries and the last reference will be displayed before "Input 
Control" continues. 


Save Input (UDK 9) 


Add new references to the data on magnetic tape with this program. This is 
accomplished as follows: 

new references are arranged alphabetically; 

they are stored in file 2 on tape; 


the files that have to receive new data and the number of entires for 
each file are established; 


for each of these files: 
- the old data is read from tape; 
- new references are inserted, comparing the codes; 
- if necessary, the last character (A) of the codes of the new entries 
are changed to ensure that each reference has a unique code. 
List Index (UDK 10) 
The index stored on tape can be listed with the option to make a hard copy. 


All references are read from the magnetic tape and are displayed with or without 
title (as determined with "Initialize"). 


The input data string is not destroyed by this program. 
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Change Index (UDK 5) | МА 


This program changes reference data on the data tape. Тһе reference is identified 
by its six-character code. 


- the file number is established from the first character of the code; 
- the complete file is read in, overwriting all input data in the memory; 
one of the following changes can be made: 


- change a status symbol; 
- replace (add) a title; 


- replace a reference using the "Input Subroutine" - the old code is 
retained, and if no new title has to be entered, the old title is kept, too; 


- delete an entry 


the changed data are stored again on tape before this routine restarts. 


PROGRAM LIMITATIONS 
Input field length (characters): 
maximum minimum 


Author 

Journal 

Volume (Date) Page 
Status (or Type) 
Title 


Maximum number of references: 
Entered at a time: 150 


Stored on magnetic tape: 2000 approximately 


(е 
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DATA ТАРЕ STRUCTURE 


The program is stored in file 1 which must be 9472 bytes long. File 2 
(18432 bytes) is used as a scratch file. Files 3 through 28 contain the 
stored references arranged according to the first alphabetic character of 
the author's surname, starting with A in file 3. The lengths of the data 
files must be chosen according to the anticipated number of entries per 
character. The following division of the tape is recommended: 


FILE # LENGTH CONTENTS RECORDS 


9472 Program 
18432 Storage 
10752 
18432 
14592 
12288 

6912 

9984 
13056 
13824 

3840 

5376 

: 13056 

9216 
16128 

6144 

6144 
12288 

4608 
11520 
18432 

7680 

4608 

7680 

9216 

3840 

6144 

3840 


о OO Мо сл +> о м н 


A 
B 
С 
0 
Е 
Е 
б 
Н 
І 
Ј 
K 
L 
M 
N 
0 
P 
Q 
R 
5 
Т 
! 
ү 
W 
X 
Y 
1 


Тһе references аге stored іп ASCII records of 120 characters рег reference, 
using the following format: 


Author 
20 
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This allows about 31 references for surnames with the lowest frequency of 

| оссиггепсе (e.g., surnames with initial character X, Z, etc.) and a maximum of 
1150 references for those of the highest frequency of occurrence (e.g., В, 5, etc.) 
| to be stored on tape. 


14. OPERATING INSTRUCTIONS 


Introduction 


Transfer the Reference Index program from the TEKniques program tape to 
the first file on a tape to be used solely for this program: 


InsertTEKniques Vol. 5 No. 4 T1 tape 


FIND 45 
010 


Insert your new Таре 
FIND 1 

MARK 1,9472 

FIND 1 

SAVE 


Loading and Running the Program 


To load the program, insert your dedicated tape into the 4050 and press 
AUTO LOAD. Proceed as soon as the 1/0 light is off (note: the BUSY light 
will stay on since the machine is waiting for an instruction). 


The different functions of the program are executed using the User-Definable 
Keys (UDK). 
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TITLE 


Reference Index 


SHIFT KEYS 
13“ 


SHIFT KEYS 
18 


Use Diagram 1 (following page) to determine the sequence іп which the UDK's 
may be used. Start in the upper left corner. Not adhering to the indicated 
sequence may result in 1055 of all data entered during the current session. 
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ade} Э139шйбеш uo 
590ц949494 Мец 92035 
базизмајен A 
мац 1511 
ЕСРПЕРЕРЕР 
маџ эбиец 


хари! Би! $иха 
1511 
эпи!3и05 
€ xan 


рә?! 


sə5uəJəjJə 


E маш Butppe Aq 


хәриі би115 


хэ 


49113 LL! 


Sequence 


Diagram 1 
eratin 


10 


хәриі Би! 5иха 
UL 590це42)94 
|епрілірші әБбиру2 


xapul 1511 
SA 


7 


401140 
пӘ 1313 
(34144) 
чэзиэ,, эбиецо 
| uo 
рег. | е шъ uəəq 394 
[913191 uəəq 104 sey weuboud 


seu weuboud 
х 340 
pue 
ОМІМЗУ 
хәриі Бит | хе 


ЗЭМҮНЭ 40 1511 


10155985 
іхә 3104 я 


put Mau 


е 3134) 


ТЕКТНОМІХ DESKTOP COMPUTER PROGRAM 7/80 


000-6405-02 


РАСЕ МОМВЕВ 125 
E TITLE 
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BUSER DEFINABLE KEYS 
BUDK 1: Initialize 
Press to initialize program when 


- the index stored on tape is to be displayed or changed before any new 
references are entered; 


~ the “enter (print) title" option is to be changed. 


р warning will Бе displayed: 


INITIALIZE 
WARNING: THIS ROUTINE WILL DELETE ALL DATA 
DO YOU WANT TO CONTINUE? YES/NO YES 


Enter YES to proceed, thereby deleting all data in memory (not that stored on tape); 
or 
NO to exit from the routine without any loss of data in memory. 


If YES was returned, the program responds: 


DO YOU WANT TO ENTER (PRINT) TITLES? YES/NO 


Enter YES or NO. The answer will apply until changed by this or the "Input" 
routine (UDK 6). 


ШҚ 2: Not used. 


UDK 3: Continue Input 


Press to resume input without loss of data after input interruption(s). 


The number of references entered during the current session as well as the last 
| entry will be displayed before the input loop starts. 
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Reference Index 


итте 


ШК 4: Change Input wr, 


Press to change data already entered during the current session. 


f Brief instructions will be displayed, followed Бу: 


ENTER CODE OR "STOP" 


Enter temporary code to select the desired reference for modification. 
Enter STOP to exit from this routine. 


| ТЕ an existing code is entered, the first reference with that code will be 
displayed followed by: 


ENTER INSTRUCTION (0, N or R? 


Enter: 


- D to delete the reference; 


- R to replace the reference by another one, which must be entered according : + 
Хо {пе rules of "Input" (UDK 6). 


- N to get the next reference with the same temporary code. 
The routine restarts automatically after every change made, without again 


displaying the operating instructions. 


UDK 5: Change Index 


WARNING: This routine will delete all new references in memory. 
Press to modify individual references stored on magnetic tape. 


Brief instructions will be displayed followed by: 


EHTER CODE OR "STOP" 


Enter the six character соло to select the desired reference for modification. 


Enter STOP to exit from this routine. 


` 
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After an existing code has been entered, the reference will be displayed 
followed by: 


ENTER INSTRUCTION: SEtatusJ, TLitlel; REeferenceJ ог DEeletel 


Enter 


- S to change the status symbol; 
- T to change the title; 
- В to change the reference; 


- D to delete the reference. 

For a status or title change, only the new information will be requested. 

A new reference must be entered according to the rules of "Input" (UDK 6). 
However, the old code from the reference being replaced will be retained 
together with the new reference. If -the code is incorrect, refere to the 
correct one in the reference, e.g., in the "Journal" or "Title" field. Then 
enter correct code using "Input" (UDK 6) and "Save Input" (UDK 9). Or, simply 
delete the entry and later insert the new one (UDK 6). 


The routine restarts automatically after every change made, without again 
displaying the instructions. 


ШК 6: Input 


Press to start input session. 


The "Initialize" routine will be run first. For instructions, refer to UDK 1: 
Initialize. 


Subsequently a summary of the input format will be displayed followed by a prompt: 
FORMAT FOR REFERENCES: 


-AUTHOR JOURNAL VOL (DATE) PAGE<STATUS SYMBOL 


“= AUTHOR MUST START WITH A LETTER 

-= FIELDS ARE SEPERATED WITH / 

. = THE DATE MUST BE WRITTEN BETHEEN BRACKETS 

= THE STATUS SYMBOL САН BE ANY CHARACTER OR SYMBOL 


ENTER REFERENCE 
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| Enter a reference using the correct syntax: | МА 


BECKER ЈА, ЕТ AL.^J CHEM РНҮЅ/57С1974) 1577, 


Тһе input must comply with the rules given below. 


If the "enter (print) title" option was set to "yes", the next step applies, 
lotherwise it will be skipped. 


IEHTER TITLE 


Enter the title before the "|". Тһе reference will be displayed with the 
temporary code, followed by the next request for a reference. 


ЕТ the input Тоор Бу pressing а ЦОК (see diagram 1). 

ISyntax rules Тог input: 

Author/Journal/Volume(Date)Page/Status 

The fields (author, journal, etc.) are separated by a "/" (slash). The 


E first three slashes in the reference will be interpreted as end-of-field 
delimiters, and therefore .по slashes may be used in the reference, except for 


the status symbol. б -J 
| Author : 

Write the first author's surname first. The first three letters in this field 

make up the beginning of the code. The author must start with an alphabetic 

character (А-2). An author like Р.Т.5. Yu may be entered as Yu Ғ.Т.5. 

Minimum length: 3 characters. 

Maximum length: 20 characters. 

Journal: 

This information is optional. 


Minimum length: 0 characters. 


[Maximum length: 16 characters. 


(У 
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| TITLE 


|j Reference Index 


{ Volume (Date) Page: 


Тһе date must be written between brackets with the year of publication preceding 
| the right bracket ")". 


| The minimum length of the date is 2 characters, not necessarily numbers, e.g., 
| asterisks could be inserted for an unknown date. Мо other information in this 


field пау be written between any brackets, i.e., (), (1, 13. 


| А11 other information in this field is optional. Тһе sequence Volume (Date) Page 
| пау be changed. 


| Minimum length: 4 characters. 


| Maximum length: 23 characters. 


| Status 


Any character except a space must be supplied. It will be written immediately 
after the code in the listing. 


Length: 1 character. 
Title 
There are no rules concerning the syntax. 


Minimum length: 0 characters 


| Maximum length: 48 characters. 


When the maximum length of a field is exceeded, that information will be 


truncated. 


Some examples are given on the next two pages. (No titles were entered as 


[the inclusion is trivial.) А11 entries on the first page are valid. The 
[second page contains some incorrect entries. Note that the last reference was 


accepted although author and date were not entered according to the syntax 


rules. This resulted in an incorrect code. 


UDK 7: Not used. 


ШІК 8: List Input 


Press to display the entered references that are not yet stored on magnetic tape. 


МОК 9: Save Input 


Press to merge new references with old data on magnetic tape. 
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свае 61265 11449 зо (очапог suyan] “Мо чозмарин 29894Н9 
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39N33333*4 ЯЗІНЗ 
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39N333334 43183 
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+7(896192361)%291' 2 :6275844 1999 Г/"10 3a ‘M9 чозчарчу 
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Занзазаза 331H3 


$29 1 С9961 168 SAHd 1449 f 719813 “МЭ нобизану «9894НӨ 
*/P£91E896136£/SAHd 1449 Г/"19 13 Мә) NOSM30HU 
ee 


Р59166961)6Е shud (449 f "19 33 ‘M9 uosuapuy . С" 
4 98916 8961066 / Shud [998 Г / "ро 3a “м uosJapug 
| 398383434 aa 
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398333333 331N3 
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занзизази N31N3 


РЕ91661:20"896158:68Е 5544 (449 f “іо 3a ‘uosuapuy М) 4961 мо 
4/9891661720:896138:68/5644 1449 r. 19 32 “иозмарив М9 

33Н343433 431Н3 

193434 - 43143339 гон їпанї 

3194 3NO NƏHL заби 


+ Е91 <В96СЕЗБЕ/ ЗАЧа (449 ги" |? за ‘M9 uosuapuy 
33N3433334 ЕНЕ 


193434 - 43143339 LON їпянї 
431131 9 НИМ 14015 Asn AOHLNY 
%/9Е91(8961266/56Ч4 |449 Г/ "10 за ‘M9 uosJapuut 


3398333433. 831N3 


193434 - 43143329 LON мант 
591313 30 чзенпн 1N31914305NI 


РҒ91(896126с/55ча 1498 rC "10 за *M5 uosJapuy 
39N333433 азінз 
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| TITLE 


f Reference Index 


UDK 10: List Index | | ~ 
Press to display the index оп tape. i 
Mi you want a hard copy, enter YES to the prompt. 


1 (1115 routine does not interfere with the input data.) 


(У 
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FLOW DIAGRAMS 


TEKTRONIX DESKTOP COMPUTER PROGRAM 7/80 


РАСЕ NUMBER . 134 


TITLE 
Reference Index > — | 


REFERENCE TNDEX: 


USER DEFINABLE KEYS 


2-2 ай 6 
Call 
1 Subroutine 


t 


СЕЗ 


CHANGE 
. INUT 
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TITLE | | 
[Reference Index ` = | | 


REFERENCE INDEX: INITIALIZE (100-3301 


Print 


Warning 


1 


Print 


Delete variables 
p Dim variables 


Initial values 
Це“ 
N=6 


Print 
ENTER TITLES 
YES/NO 
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TITLE 
Reference Index . I 


REFERENCE INDEX: INPUT CONTROL 1348-5101 


Print 


instructions 


Col | 
subroutine 


928 (Input) 


` Add reference 
to L$ 


ери 


Print 
reference 

H 
| 


410-496 


Print 
nessage 
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INDEX: INPUT SUBROUTINE Со: 12 [520-7301 


Set search роз. 
0651 


Šel error flog 


Set error flag 


=-| 


Increment 
search position 


АХ 


— Y gu 
Renove spoces 
ofter '/' 

S$= 


Remove spoces 
Ц- 
REPC'* D, 1) 
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TITLE | 
| Reference Index ` f | | 


REFERENCE INDEX: INPUT SUBROUTINE <р 22 (7460-10190) 
40-150 ЕСЕ!) 
Split input Copitol letters 
Author A$ | ред, 
1520 min 1-1] > FOR T= | 103 
— | 918-929 
D$-SEGCCS T, 1) 
C-ASCCDS) | 
10-19 030 
15-326015,1,1) 
Check Ist letter 
S$=SEG(AS, 1,1) 
(-0-32 
{ ан | 
=PEP(DS, T, 1) ЭР 
(3-Р 0,1, © 
Journal J$ 
= Б 
МЕЗА, ... ) 
130-840 
Reference R$ 
НЕ...) 
Stotus 3$ 
SEG(I$, (32, 1) 
Code 
й (5-5ЕС05,1,3) 
` 
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TITLE | I 
Reference Index ` 


REFERENCE INDEX: INPUT SUBROUTINE Ср 32 Г1020-2201 


020 


Remove spaces Place 72 spoces 


after date 


D$-SEGCRS, DI-1, 1 
1838 


05- 
КРО“ 4. 
| дес тета 


1050 : 1010 
Enter 
988 LEN(D$)<2 WO title 


s, ')' in d 
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TITLE | 
Reference Index >- : 


REFERENCE INDEX: INPUT SUBROUTINE со 42 [1238-3897 


Print 
INSUFFICIENT 
NUMBER OF 


1 
e 
g 


Print 
1288 AUTHOR KUST STAR 
VITH А LETTER 


320-18 


| | Print 
(8 — — HO STATUS 
ХҮН? 


Print 
HORE THAN 
ONE DATE 


Print 
DATE TOO 
SHORT 


378 


Print 
INPUT NOT 
CCEPTED ~ БЕРГА 


1380 
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TITLE 
Reference Index ` ! : 


^ 
REFERENCE INDEX: LIST INPUT (14080-14881 
~ 
H$-5E6 
(LS, 1«120-47,48) 
YN 
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TITLE | 
Reference Index Р 
š Z 


( 


| МЈ 
REFERENCE INDEX: CHANGE INPUT [1498-1820] 
— 1490-578 
Print 
instruct ions 
% Даден 
Search position 
DOI 
ш Е рг Next 
TAE | 00024120 
CODE OR 'STQP x 
NOT FOUND || ~ 
| |“ 
| 
| 
Instruct ion 
M 
: Coll 
First letter : 
ЗАЗ Б, 1,1 or OD 
щанд 
Replace 
$-PEFCH$, D2, 128 © 


22 
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TITLE i | 
Reference Index 


REFERENCE INDEX: CONTINUE INPUT 16350-15793 


Get lost entry 
HS=SE6(LS, 
LEN(L$)-119, 120) 


Number of 
entries 


N=LEN(L$)/128 
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TITLE а | Р 
Reference Index : | 


Sort new 


entries 


FOR J = 121 TO 
.. зынды аны ань T 


ТЕР 128 x | | т 


GCS, 1-20, 128 
-3 6(15,1 20 


1969 | 
WEIS В | 20 


КО | 1970-80 
Exchonge 
LE=REPCHS, 1, 120) 
REPCIS, 1-128, 120) 
1990 


YES | 
“/ 


000-6405-02 ТЕКТВОМІХ РЕЗКТОР COMPUTER PROGRAM 7/80 


РАСЕ МОМВЕН 145 
[! " 
| TITLE | 
Reference Index ` | 
d ; ! 


REFERENCE INDEX: SAVE INPUT Cp 22 [2830-2318] 


Initial аг 
5-0 2580 


Insert into 
data files. 


Counter 


File counter 


FRI-!IGN 


(к, 0): filet 
$(*,2): number 


of new entries 


ПЕТҮР(0) 
беј old dota 


New file 
515514 
9051, 1)=А 


` 
` 

~ 
. 


+— P —— ——- 


9051,2)= 
501,028 


„Ж 


КН 
ЦЕ 
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REFERENCE INDEX: SAVE INPUT Ce: 32 [2320-2509] 


2328 


234 
Read over 
first data 


ser d 


a Er 
Š $=$Е ин 


references 
FOR J = | 
105 


рана 


Code ` 
CS=SEGCHS, 1,5) 


NO д 
Sone code 


counter 


Рей 


SM 


A-1261 | | 


эн 


FOR = | TO | 
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2 


G 


REFERENCE INDEX: 


Dup! joe сше 
SS=CHRF +89) 
HS-REP (SS, 6,1) 


^ 


counter 


50-529, 


End боту "бор 


2498] 


000-6405-02 


Increment 


PAGE NUMBER 147 


| TITLE 
Reference Index - 


SAVE INPUT Ср 42 [2518-2788 


| For all records 


FORK =1 TON 


51205-19 


2) H$=SE6(L$, J, 120) 


................. 
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.TITLE i 
Reference Index ` 


REFERENCE INDEX: LIST INDEX Cp 12 [2710-28801 


a 


| 
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2 РАСЕ МОМВЕВ 149 
Mitte 
IReference Index . 


REFERENCE INDEX: LIST INDEX (р 22 (28102-30001 


For oll 


: FRF=3 TQ 28 


2528 


830 
TI=TYP(8) 


ГОЛ) 


== | 


2940 2840 


YES YES ще 


eof or 
euply 
NO С! NO | 2258 


Next reference — 
| 


ВЕН, 1,70) 
НУ=ЗЕБСН$, 73, 48) 
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TITLE | 
Reference Index : | 


МИ 
REFERENCE INDEX: CHANGE INDEX Cp 12 [30182-32621 
3018-90 
Pr int 
instruct ions 
- 


C$-SEe CCS, 1,6) 
iie 
РЕКСС-02 
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а | PAGE NUMBER 151 
TITLE | 


IReference Index 


REFERENCE INDEX: CHANGE INDEX Ср 22 (Г3270-34001 


Reference 
=SE6(L$, 
126*H-{ 19, 120) 


Store position 
KEN 
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TITLE | 
IReference Index : | 


КЕЕ 127 
REFERENCE INDEX: CHANGE INDEX <р 32 [3418-3720] 
410 
ENTER HS=SEGCLS,.. 
INSTRUCTION 120-119, 120) Ë 
120 
Instruct ion 
5 
3439 
НО |. sug 
Не uut 
ENTER ж | 
1$=ВЕР subrouline 
шал (TS, 12081-47, 40) 520 (пр) f 
450 3 08 ща WY 
Stotus 2 НЕЕ 
ў HS=REPCES, 1,8) шаг 
3610 
Рерідсе 
$=REP(TS, 
1201-47, LEN(TS) 
D 7; 
Replace status Replace 
LER | old title | э 
(S$, 120-113, 1) HS-REPCTS, 73, 49) 
р 
L$-REPCHS, 
128xH-1 19, 120) 
3540 
Print да E 
ond store | ` 
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"Ue DESKTOP COMPUTER 
гох APPLICATIONS LIBRARY PROGRAM 


TITLE 


vue ss 


14050/ТМ5000-6РІВ. Routines 
[ORIGINALDATE — REVISION DATE 
September, 1981 TM5000 Mainframe and Plug-Ins 


[AUTHOR Jim Kimball, Barbara Malin and PERIPHERALS | 
Steve Peterson, Tektronix, Inc. | 


EQUIPMENT AND OPTIONS REQUIRED 


| ABSTRACT 


Files: 48 ASCII Programs 
(Statements: 2,498 


These 47 routines, following a directory on file 1, match listings in the 
[GPIB Programming Guide (available separately under part number 070-3985- 00). 
They are provided on this tape to save the user the task of keying in examples 
from the 11551005 printed іп the Guide. 


The GPIB Programming Guide aids the users of 4050 Desktop Computers and TEKTRONIX 
ТМ5000 series; instruments in making the software connection. The Guide introduces 
the 4050 as а Controller for TM5000 instruments, with programming information 
specific to jinstrument control. Major topics are: 


GPIB Input/Output - 
Interrupt handling 
Interrupt handling statements 


Utility. routines 
4052/ GPIB send and receive program 


series, instruments specifically covered in this Guide include: 


0с5009 and 065010 - Programmable Universal Counter/Timers 
0М5010:- Programmable Digital Multimeter 

FG5010z- Programmable Function Generator 

PS5010 -.Programmable Power Supply 


The program material contained herein is supplied without warranty or representation of any kind. 
Tektronix, Inc., assumes no responsibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any pert thereof. 
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TITLE — 


4050/ТМ5000 GPIB Routines 


| PRELIMINARY OPERATING INSTRUCTIONS | 27 


Transfer the index and 47 routines comprising this program from the TEKniques 
Vol. 5 No. 4 program tape to the first 48 files on a tape. 


Use one of the tape duplication programs (see page iv of the documentation) 
to transfer files 46 through 93 from the ТЕКп1дие$ tape to files 1 Ша 48 
оп а пем фаре. ug 


Or, do a TLIST of the TEKniques tape to find the size of each file 46 Нойр 93, 
МАВК а new фаре, files 1 through 48 to correspond with these sizes, Then 
FIND, OLD and SAVE each of the programs. 


E.g., After marking a new tape of 48 files, 


Insert TEKniques Vol. 5 No. 4 program tape into the 4050 
FIND 46 | 

OLD 

Remove the TEKniques tape 

Insert the new tape 


FIND 1 U 


SAVE 


Repeat the process for files 47 through 93 on TEKniques tape. 


Ç 
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TITLE 


| 4050/TM5000 GPIB Routines 


TAPE STRUCTURE 
| A11 files аге ASCII. 
Most are complete programs; some are subroutines. 


See the GPIB'Programming Guide for listings and instructions to determine 
whether a given file is a program or subroutine. 


әсет 


“DIRECTORY GPIB PROGRAMMING GUIDE EXAMPLES 
а |. 878-3985-88 
Title 


Print This Directory 


High level learn mode program | 
A Talk¢Listen Routine 


GET ANY STB ~ LOW LEVEL 

CONVERT STATUS BYTE TO 8 BIT ARRAY 
SEND IDENT MESSAGE TO 3 ADDRESSES 
GPIB SEND & RECEIVE 


OPC INTERRUPT-DRIVEN MEASUREMENT 
GET MEASUREMENT ON "RDY 1" 
TIM EXAMPLE 

PULSE WIDTH MEASUREMENT 

GET NEW MEASUREMENT 

TRIGGER WITH <GET> 

PULSE AMPLITUDE 

SIGNAL CHARACTERIZATION 
MEASURE PHASE 

SUBROUTINE DC 5089/5818 ERR? 
DC 5010 STB PARSER 


COMPARE TO LIMITS 

TRIGGERED MODE EXAMPLE 

DM5018 TO TAPE DATA LOGGING 
рМ5010 POWER SUPPLY SET PROGRAM 
RESISTOR SORT ROUTINE 

LINE VOLTAGE MONITOR PROGRA 

IN- “CIRCUIT CURRENT MEASUREMENT 
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м TITLE - казата, 


4050/TM5000 GPIB Routines 


AVERAGE WHITH RDY? QUERY 

AVERAGE WITH OPC INTERRUPT HANDLER. 
SRA SUBROUTINE FINDS MAX VALUE 
SQUARE МАМЕ РЕАК-РЕАК READING 

LOW FREQUENCY WAVEFORM RMS 
SUBROUTINE DMS@18 ERROR MESSAGES 


FG 5818 ERR? and STB MESSAGE TABLE __. 
Зин FREQUENCY SHEEP 

FG5018 UCF MODE Voltage Calc 
FGS818 PULSE GENERATOR EMULATOR 
FG 5818 LEARN MODE Eon INIT 
Binary Settings Quer 

LOW LEUEL STORED SETTINGS QUERY 


STEPPED WAVEFORM 
PS 5010 REGULATION INTERRUPT REPORT. 
LOW LEVEL SETTINGS 

THO PS 5010 IN SERIES 

PRINT PS 5818 зана MESSAGES 
ZENER - DIODE T 


FREQ RESPONSE PLOT 

GEN DC VOLTS WITH ҒС5018/0М5010 
ТМ5080 DEMO DUT CHECKOUT 

PRINT ERROR MESSAGE (ALL TM 5888) 


а adag ^^ 


ы 


оо 


DESCRIPTION 


File. 1: Prints a directory in three columns showing file number, file name 
(usually the same as a REM statement that is the first line in the 
listing), and page number of Programming Guide where example is listed. 


| Files 2-3: Example programs from Section 1. 


Files 4-7: Three utilities and a program for 4052 control of a GPIB system 
from Section 


Files 8-18: Program examples for use with the DC5009 and DC5G10 Universal 
Counter/Timers from Section 3. 


Files 19-31: Program examples for use with the DM5010 крознайневиє Digital 
Multimeter from Section 4. 
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Й TITLE 


4050/ ТМ5000 GPIB Routines 


Files 32-38: Program examples for use with the FG5010 Programmable 20 MHz 
Function Generator from Section 5. 


Files 39-44: Program examples for use with the PS5010 Programmable Power 
_ Supply from Section 6. 


Files 45- 48: “Example programs for use with two or more ТМ5000 instruments from 
‘Section 7; 


ох із 


OPERATING LNSFRUCTIONS 


Refer to the GPIB Programming Guide (070-3985- 00) for a discussion of the 

routines and the listings. Generally, programs in Sections 1, 2 and 7 of the 

Guide гедиїге more than one ТМ5000 instrument, while Sections 3-6 require 

only the instrument that is the subject of the section. 

Most example босі contain ап 5К0 handler with only the specified instruments 
| included in the POLL address list. 

а 

Other instrum ts such as a counter on-line while trying to run an example from 

Section 4 (BM501 10) will cause execution to abort if the extra instrument 

asserts 588785 Тог ромег-ир). 


File 1 пау Бе ‘AUTO LOADed to print program directory and page number of 
Programming.;Gudide where listings appear. 


Other files must be accessed: 


FIND ЖЕСЕ п is the file number) 
бр: 524% 


RUN or LIST 
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| TITLE 


4050/TM5000 GPIB Routines 
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